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■«•«•# TSX Initialization «■ ^ * 

•«•«■* Initialization taking over control -Prom R1-11 «■«■•»• 

LODINI — Load a segment over TSINIT 

INIOVL — Load system overlays over TSINIT 

ENTVEC — Set up entry point vector for overlay 

KEYSEO " — Remember memory position of system overlays 

DEWEC — Set up device vectors 

SETVEC — Set up an interrupt vector for a device 

PIDVEN — Hake device table entry for PI device 

LINTYP — Determine the type of a line 

«■ # * Initialization done with RT~1 1 running « •«■ -Jf 

* •»• « Subroutinps * * ■«• 

ALCWRK — Allocate a work buffer 

ALCHRB — Allocate Region Control Blocks for handlers 

OPNSWP — Open system su»ap file 

OPNRSF — Open PLAS region swap file 

SPLINI — Initialize spooling system 

SPLCLD — Set up spooling to a CL device 

CHKCLD — See if a device name is a CL or CI unit 

CVTDVU — Convert device name to dev index and unit # 

FORCEO — Force a 2-char dev name to unit 

ALOCBF — Allocate buffer space 

ALCSLO — Allocate silo buffers for lines 

ALBFX — Allocate buffers in extended memory region 

OPNKMN — Open channel to TSKMON 

CLINIT -- - Initialize CL handler 

LDINIT • — Determine LD translation table format 

INDINI — Initialize IND program 

UCLINl — Initialize TSXUCL data file 

MEMINI "~ Initialize memory management 

MEMTST — Set up information about available memory space 

CXTALC — Set up info about job context area 

MAPALC — Allocate memory usage table 

SETJSZ — Set up information about maximum job sizes 

GETHNL — Load device handlers into memory 

LDHAND — Load a device handler 

INSCKl — Determine if a handler should be installed 

INSCK2 — Additional checking for handler installation 

STDVTB — Set up device table entries for a device 

LDHNLO — Load device handler into loui memory 

GETHNH — Load handlers into extended memory 

LDHNHI — Load device handler into extended memory 

STHNPV --- Initialize pointer vector in a handler 

DOHNLC — Execute and handler load/fetch code 

LDREAD — Perform I/O for handler load code 

HANMAP — Set up KPAR5 to access a mapped handler 

HANUMP — Turn off memory mapping to a handler 

FNDHRB - Try to find a handler global region 

HANXMR — Allocate XM region during handler load 
OVLPOS — Determine which overlays go over TSINIT 
OVLBLD — Build overlay information table 
GETMAP — Load any mapped system code regions 
ALCOVL — Allocate space for a system overlay region 
OPTOVL — Check for optional system overlay regions 
OVLTRY ■ — Find an overlay to place over TSINIT 
GETOVL — Load system overlay into high memory 
LODOVL — Read and relocate system overlay 
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000000 



. TITLE TSINIT 

. ENABL LC 

. ENABL ANA 

. DSABL GBL 

. CSECT TSINIT 



TSX startup initialization 



TSINIT: 



There are two external assembly-time switches related to assembling 
TSINIT for execution on a PRO or a PDP-11. 

The following values for the PROASM flag btg defined: 

-=> Assemble for PDP -J 1 <not Pro) only. 

1 ==> Assemble for Pro only. 

2 ==> Assemble for either PDP-11 or Pro execution. 

The following values for the PROCID flag are defined: 

™=> Do not lock system to ID number. 

1 ---> Lock system to ID number. 



. IF NDF, PROASM 

PROASM = 

. ENDC ; NDF, PROASM 

> 

. IF NDF, PROCID 

. IF EQ, <PR0ASM"1> 

PROCID = 1 
. IFF 

PROCID = 

.ENDC ;EQ, <PROASM-i: 

.ENDC i NDF. PROCID 

. IF EQ, PROASM 



; If PROASM not defined 

i Default value for PROASM if not defined 



If PROCID not defined 

If assembling for PRO only 

Then check ID by default 

If not assembling for PRO only 

Then don't check ID number 



TSXPRO = 



. GLOBL TSXPRO 

ENDC 



i Define dummy base for TSXPRO if not PRO 



TSINIT is the initialization module of TSX that is executed once 
during system startup. Time-sharing character buffers and other 
run-time data areas are allocated over TSINIT. 



Copyright 1980, 1981, 1982, 1983, 1984, 1985. 
S&H Computer Systems, Inc. 
Nashville, TN USA 



Macro calls 

. MCALL . LOOKUP, . ENTER, . READW, . SAVESTATUS, . GVAL 

. MCALL . TRPSET, . SETTOP, . CLOSE, . TTYOUT, . PRINT, . PURGE 

. MCALL . DELETE, . WRITW, . SERR, . HERR, . EXIT, . UNLOCK 

. MCALL . FETCH, . RELEASE, . LOCK, . GTIM, . DATE, . DSTATUS 

. MCALL . SCCA, . CSTAT 

Global definitions 

. GLOBL TSINIT, INITGO, INITOP, PPTERM, PROITP, PROASM, PISRT 
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. GLOBL DSKBUF, PROBUF, FNDHRB, HANXMR 

Following global only needed for the Pro distribution 
creation program - MAKPRO and installation program - INSTSX 

IF NE, PRDASM 

*■* Assemble this code if we are generating for a Pro 

. GLOBL PROSIZ, PROINI , PROLIN, PROHAN, PRONOP 
GLOBL PIHAN, PIDPTR, PIDRIV 
.IFF ; NE, PROASM 

*«• Assemble this code if we are not generating for a Pro 

. GLOBL TSXPRO 
TSXPRO = 

««■ End of conditional Pro code 

. ENDC i NE. PROASM 

Global references 

. GLOBL HANDSK, MAXDEV, NDVRCB> HANRCB, HANRCO 

. GLOBL LXCL, VSYDMP, STKLVL, INTSSZ, INDFIL, NXIVMH, EXCBUF 

. GLOBL VNUIP, NSIP, INSTBL, INSTBN, II**SZ, DCCSIZ. VNUMDC, NUMCDB 

. GLOBL NSCP, SCPFHD, SP*«SZ, CSHDEV, CSHDVN, VMXCSH, CD«*SZ 

. GLOBL LSTPL, LMXNUM, MXCSR, MXVEC. RSR, INVEC, VHIMEM, CXTPAG 

. GLOBL LSWPBK, LSTSL, SWDBLK, SWPCHN, NUMDEV, CS*NMX, SCHED 

. GLOBL H. DSTS, DVSTAT, HANENT, H. GEN, FORK, INTEN, PNAME 

. GLOBL $SXON, LSWIO, LHIRBB, LHIRBE, LHIRBP, LHIRBG, LHIRBA 

. GLOBL LHIRBS, LHIRBC, VNCSLO, VNCXOF, VNCXON, SDDVU, VMSCHR, MAXSLO 

. GLOBL MPARO, MPAR16, PARENL, MPARFL, TSEMT, VDBFLG, DX*EBA 

. GLOBL H. SIZ, HANSIZ, H. DVSZ, DEVSIZ, LOMAP, MMENBL, UPAR7 

. GLOBL PSW, HIMAP, FSTDL, LSTDL, LINBUF, LINSIZ, NUMCCB, TKISEC 

. GLOBL FRKINI, FRKGEN, NUMFRK, FQ**SZ, H. CSR, H. INS, VSWPSL, DMYDEV 

. GLOBL LINEND, LOTBUF, LOTSIZ, LOTEND, KMNTOP, KMNHI, NSL, NDL 

. GLOBL DX*MPH, DX*NHM, DX«IBH, HANPAR, HANXIT, MAPPAR, LINSPC 

. GLOBL KMNPGS, KMNSTK, KMNSTR, KMNCHN, SROMMR, KPARO, PROFLG 

. GLOBL EMMAP, lOMAP. SR3MMR, lOPAGE, MAPSIZ, SR3FLG. NSPLDV 

. GLOBL UPARO, KPDRO, UPDRO, KPAR7, BASMAP, PTWRD, PTBYT, LOKMEM 

. GLOBL GTBYT, MPPHY, RELOC. BRKPT, TSGEN, TSEXEC, VSWPFL 

. GLOBL CW*GDH, CW*BTH, CW*LGS, CW*FB, CW*FGJ, MSGBAS, RPRVEC 

. GLOBL CW*USR, CW$XM, CONFIG, CW*50H, JMPO, DTLX, USRBAS, WINBAS 

. GLOBL DATIML, DATIMH, RMON, C0NFG2, SG*ELG, SO*IOT, CSHBAS 

. GLOBL SG*PAR, SG^MTS, SG*MMU, SG*MTM, LTTPAR, LOKBAS, CSHVEC, LOKVEC 

. GLOBL SYSGEN, AUTHAN, AHEND, CLKRTI, TRP4, CW*PRO, TIOVEC 

. GLOBL TRPIO, TRP20, TRP24, EMTENT, TRP34, INI JMP, MHNSIZ 

. GLOBL TKIVAL, INRECV, OTRECV, INMXV, OTMXV, DHBFSZ, MXTYPE 

. GLOBL ZCLR, MXRBUF, MXDTR, INTMXl , *PHONE, LCDTYP, TIOBAS 

. GLOBL LDHBIB, LDHBIP, LDHB2B, CLVERS, CXTSIZ, CXTWDS, CXTPDR 

. GLOBL CL0R9Z, TSXSIT, JM**SZ, VMXMON, MONFQH, CXTRMN, CXTBAS 

. GLOBL ILSW2, *NOIN, LSW3, MXLPR, CW*ESP, CLTOTL, RMNPDR, MA*SYS 

. GLOBL SFCB, SFCBND, SFCBFH, SF^CBSZ, NSPLFL, NSPLBL, INTSTK, INTSND 

. GLOBL NFRESB, PVSPBL, VMXWIN, DW**SZ, LDVERS, CW*QBS 
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. GLOBL FC*LBN, VMLBLK, VMXSF, VMXSFC, FF**SZ, FW**SZ, SWPJOB, SWPPOS 

. QLOBL TSR, RBR. RDINT> LSTMX, SS, CHAIN, JSWLOC, MU*TXT, SLTSIZ 

. GLOBL NUMIOQ> FREIOQ, UMODE, FPTRAP, MXLNT, DI*LD, DI*CL, CLSTS 

. GLOBL FREPGS, IDQSIZ, SYUNIT, UMSYTP, DI*TT, CXTBUF, SSEND 

. GLOBL SYINDX, MONVEC, KMNBAS, SDANAM, VBUSTP, MINCTR 

. GLOBL NUMRDB, RDB, RDBEND> RT*SKP, RT*TOP, NLINES, SHRRCB, SHRRCN 

. GLOBL RT*BAS, UPMODE, SPLNB> CSHALC, NIOL, CHNSIZ, RC**SZ, VNGR 

. GLOBL UPAR6/ UPDR6, RT«*SZ, VINABT, *DEAD, LSW6 

. GLOBL SYTIMH, SYSDAT, TRP250, ODTTRP, TRP14, SYTIHL 

. GLOBL DS*ABT, CL$ORB, CL*ORE, CL*ORG, CL*ORP, CL*ORA 

. GLOBL *TAB, *FORM, CO*TAB, CO*FF, CO*DEF, CL«EPS, CLEOFS 

. GLOBL CL*OPT, CL*STA, CL^ORS, LSTLIN. VCSHNB, CL*EPP, CL$EPN 

. GLOBL CCLSAV, SPLND, SDCB, SPLDEV, SPLANM, MIODBG 

. GLOBL SDNAME, SDCHAN, SDCBSZ, SPLDVN, DTYPE 

. GLOBL DS*NRD, DX*NMT, $SB IT, CO*SBT. UEXRTN, VUX IFL 

. GLOBL SPLBLK, SPLCHN, MVSIZ, MEMPAR, UEXINT, DX*NRD 

. GLOBL NMSNMB, SNMSHD, SB**SZ, PMSIZE, PMPAR 

. GLOBL NUMDCD, MEM256, LOKCSH, DC**SZ 

. GLOBL JCXPGS, MXJMEM, VDFMEM, DFJMEM, TK5VAL, TK3SVL 

. GLOBL VPAR6> lOTIMR, ERRLOG, VNFCSH, FC**SZ 

. GLOBL 0. ADR, O. BLK, 0. PAR, 0. SIZ, VPAR5, KPAR5, DZOINT, DHOINT 

. GLOBL OVRADD, *OVRH, SYSMAP, MAPSYS, VSLEDT, LCLUNT 

. GLOBL UBUSMP, UMRADR, lOMAP, QBUS, UNIBUS, DX*NST 

. GLOBL DVFLAO, DX*DMA, RT*NAM, DS*DIR, LDDEVX, DS*VSZ 

. GLOBL INDSAV, INDDBL, INDTSV, INDDBS, DS*SFN 

. GLOBL BYNAME, UCLNAM, RSFBLK, VPLAS, SEGCHN 

. GLOBL MXJADR, *MEMSZ, PHYMEM, SG*TSX, CDX*DH 

. GLOBL CLHEAD, CLSIZE, CLDEVX, C. CSW, C. SBLK, C. DEVQ, CIDEVX 

. GLOBL VU*CL, VUCLMC, UK**SZ, US*«SZ, UC**SZ. UCLBLK, UCLDAT 

. GLOBL VLDSYS, VMXMSG, VMAXMC, MB**SZ, MR**SZ, CSHOPN, CS*ENT 

. GLOBL DX*MAP, MIOFLG, MI*SBP, MI*LNK, MIOBHD, VMIOSZ 

. GLOBL VMIOBF, MI**SZ, MW**SZ, MIONWB, MIOWHD, MW*LNK 

. GLOBL CSHSI Z, CSHBFP, CA*BLK, CA*DVU, CA*WCT, VMXMRB 

. GLOBL CA«UFL, CA*UBL, CA*HFL, CA*HBL, CA*HSH, NUMRDB 

. GLOBL SRTSIZ, SMRSIZ, CCBHD, CC**SZ, CDX*DZ, MF*LIN 

. GLOBL CDX«DL, HF*TSB, MH*SCR, LMXLN, HF*LIN, HF*RIE, HF*TIE 

. GLOBL MH*LPR, DM*CSR, MF«LE, DM*LSR, HF*MC, MF*CS, MF*CM 

. GLOBL CDX*VH, VH*CSR, VH*LPR, MH*PBR, VF*TIE, VF*RIE, VF«MR 

. GLOBL VF«LIN. VFfSC, VF*RE, VH*LCR, VHOINT, TTINCP 

. GLOBL *HARD, LOUTIR, LINIR, NEDCHR, CLOTIR, CLINCP, FSTIOL, LSTHL 

. GLOBL SYSVER, SYSUPD, DI*DU, DI*XL, DI*MU, CL*LIX 

. GLOBL CL*LEN, DI*PI, GENTOP 

. GLOBL LSW5, DX*NCA, KPAR6, CLKVEC 

Macros to enable and disable interrupts 

;Disable interrupts 



. MACRO 


DISABL 


BIS 


#340, ©#PSW 


. ENDM 


DISABL 


. MACRO 


ENABL 


BIC 


#340, @#PSW 


. ENDM 


ENABL 



Offsets in block of ODT REL file. 
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172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 

184 
185 
186 
187 
188 
189 
190 
191 

192 

193 

194 

195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 



?23 



000000 
000020 
000026 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000062 
000070 
000072 
000100 
000102 
000110 
000112 
000120 
000122 
000124 
000126 
000130 
000132 
000134 
000136 
000140 
000142 
000144 
000146 
000150 
000152 
000154 
000156 
000160 
000162 
000164 
000166 
000170 
000172 
000174 
000176 
000200 
000202 
000204 
000206 
000210 
000212 



000040 
000042 
000052 
000056 
000060 
000062 
001000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

075250 

073376 

075250 

073376 

075250 

073376 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

025556 •' 

004000 

052077 

110466 

046543 

103112 

012700 

077167 

100040 

075250 

045640 

062550 

012240 

012276 

012305 

013630 

013666 



000000 
000000 



000000 
000000 



100020 
100003 
011504 
000000 



000000 



STA 
STK 
RSZ 
OSZ 
RID 
RBD 
ODTBAS 



Data areas 



AREA: 
NFSBLK: 

ODTFLG 
ODTTOP 
CCAFLO 
CLKIOO 
RTTRP4 
RTMNVC 
SAVBLK 
TSXSAV 



051646 KMNNAM: 



000000 CCLNAM: 



000000 DSTBLK: 



BLKW 
WORD 

WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
BLKW 
RAD50 



40 
42 
52 
56 
60 
62 
1000 



8. 



PROGRAM START ADDRESS 

INITIAL STACK POINTER 

ROOT SIZE 

OVERLAY SIZE 

REL FILE ID 

DISPLACEMENT TO 1ST REL BLOCK 

BASE ADDRESS ODT WAS LINKED FOR 



0, 0, 0> 0, 0, 




o 




5 



; EXTENDED TO 6 WORDS FOR . CSTAT 



/SY TSX SAV/ 
RAD50 /SY TSKMONSAV/ 
RAD50 /SY CCL SAV/ 
WORD 0, 0, 0, 



XMVBAS 


. WORD 





NMXHAN 


. WORD 





HMAP: 


. WORD 





FETDEV 


. WORD 





TOPMEM 


. WORD 





FMEMHI 


. WORD 





FMEMLO 


. WORD 





OVLBAS 


. WORD 





FILBLK 


. WORD 





CURDEV 


. WORD 





CURNAM 


. WORD 





PROBUF 


. WORD 





WRKBUF 


. WORD 


INITOP 


WRKSIZ 


. WORD 


2048. 


R50MSG 


. RAD50 


/MSG/ 


R SOW IN 


. RAD50 


/WIN/ 


R50L0K 


. RAD50 


/LOK/ 


R50USR 


. RAD50 


/USR/ 


R50CSH 


. RAD50 


/CSH/ 


R50TI0 


. RAD50 


/TIO/ 


R50TT 




. RAD50 


/TT / 


R50SY 




. RAD50 


/SY / 


R50LD 




. RAD 50 


/LD / 


R50PI 




. RAD50 


/PI / 


R50CL 




. RAD50 


/CL / 


R50CL0 


. RAD50 


/CLO/ 


R50CL7 


. RAD50 


/CL7/ 


R50C1: 


. RAD50 


/CI/ 


R50CK 


). 


. RAD50 


/CIO/ 



64-byte block # below high alloc memory 
64-byte block # above top of low alloc memory 
Start loading overlays over TSINIT from here 



\ 
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i^a. 7 
230 

231 

232 

233 
234 

235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
243 
249 

250 
251 
252 
253 
254 
255 



000214 
000216 
000220 
000222 
000224 
000232 
000240 
000242 
000244 
000252 
000254 
000262 
000264 
000272 
000274 
000276 
000300 
000302 
000304 



013675 
105610 
046770 
057164 
100040 
012240 
000000 
000 
075250 
100020 
075250 
070524 
075250 
073376 
000000 
000000 
000000 
000000 
000000 



015270 
013630 

110 
114730 

075273 

035164 



075250 
062550 



000000 
057164 
000000 



000306 000000 



000001 



R50C17: . RAD50 /C17/ 

R50VM: . RAD50 /VM / 

R50LS: . RAD50 /LS / 

R500DT: . RAD50 /ODT/ 

SKPDEV: . RAD50 /TT DK SY CL CI PI 



GTLIN: .BYTE 0,110 
HANNAM: . RAD 50 /SY XXX 



ODTBLK: 



TSX/ 
RAD50 /SY SYSODTREL/ 



INDNAM: . RAD50 /SY IND 



RLBF: 

RLBFND 

DDTSTA 

MEMLIM 

HGENFL 



. WORD 
. WORD 
. WORD 
. WORD 
. WORD 





O 





000310 
000316 
000320 



000326 



075250 
100020 
000000 



000 



062550 
000000 



000000 
000000 



Initialization configuration word 
ICONFG: .WORD O > Initial i zat ion configuration idord 

Flag bits in ICONFIG 
EXTLSI == 1 ;Gl-bus system uiith more than 256Kb 

Simulated shared run-time control block for PI handler 
PISRT: . RAD50 /SY PI TSX/ 
. WORD 0, 0, 

Byte data cells 

PPTERM: . BYTE 
. EVEN 



J 1 if printer port is T/S terminal 



TSINIT 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 



The following tables are used to determine the minimum RT-11 monitor 
and update versions required for particular devices. 
There are three arguments for each handier definition: 

Arg 1 = Handler id code. 

Arg 2 = Minimum acceptable RT-11 version. 

Arg 3 == Minimum acceptable RT-11 update within the version. 



MACRO HANVER 

BYTE DEVID 

BYTE RTVERS 

BYTE RTUPDT 

ENDM HANVER 



DEVID, RTVERS, RTUPDT 

; ID code for device type 

i Minimum RT-11 version 

; Minimum update level within version 



Define offsets into handler version table 



000000 
000001 
000002 
000003 



HV*ID 
HV*VER 
HV*UPD 
HV**SZ 




1 



J Handler identification code 

J Minimum RT-11 version 

; Minimum update level within version 

;Size of handler version table entry 



Define minimum versions for various 
«** Note RT-11 version update numbei 



handlers 

ring system changed *** 
«*«■ at 5. 2 so that the update number for 5. 2 is lower *«•» 

ries below for *** 



000330 
000330 
000333 
000336 
000341 



*** than for 5. IC. See the CLVX ent 
; *## version and update correlations 
i ■»•#**«■#«•*#•»••«•«•**#*«##■«■•« «•»••«•«****••«•■«■»»•»■# 
HVTBL: 

HANVER DI*DU, 5. ,0. > DU - 
HANVER DI*XL, 5. , 2. ; XL ~ 
HANVER DI*MU, 5. , 4. i MU - 



5/0 <5. 0) 
5/6 (5. IB) 
5/4 <5. 4) 



Fixed for 5. 2 SCB 



HVEND: 



. EVEN 



i 
i 
f 
i 
i 
i 
I 
I 
I 
( 
I 
i 
i 

€ 
€ 
€ 

i 
i 
i 
I 
t 
t 



\ 






TSINIT - 


— TSX 5 


t a r t u p 


1 






2 






C 3 






4 




oooooo 


5 




000002 


i 6 




000004 


7 






8 






i 9 






10 






11 






< 12 






13 


000342 




14 


000342 




1 15 


000346 




16 


000352 




17 


000356 




1 IS 


000362 




19 


000366 




20 


000372 




€ 21 


000376 




22 


000402 




23 


000406 




t 24 


000412 




25 


000416 




26 


000422 




< 27 


000426 




28 


000432 




29 


000436 




i 30 


000442 




31 


000446 




32 


000452 




i 33 


000456 




34 


000462 




35 


000466 




1 36 


000472 




37 


000476 




38 


000502 




i 39 


000506 




40 


000512 




41 


000516 




i 42 


000522 




43 






44 






i 45 






46 






47 






4 48 






49 






50 






i 51 






52 






53 






1 54 






55 






56 






i 57 
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The following table defines default control flags for certain devices. 



DV*NAM 
DV*FLG 
DV**S2 



DVFLBS: 



DVFLND: 



. MACRO 
. RAD50 
. WORD 
. ENDM 



DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 




2 
4 

DEFFLG 
/ 'DEV/ 
FLAGS 
DEFFLG 



»Rad50 name of device 
iFlags for device 
;Size of a table entry 



DEV, FLAGS 



DV*NAM 
DV*FLG 



<CR>, 
<CT>, 
<DB>, 
<DD>, 
<DL>, 
<DM>, 
<CDP>> 
<DS>, 
<DT>> 
<DU>, 
<DW>, 
<DX>, 
<DY>, 
<DZ>, 
<FW>, 
<LP>, 
<LS>, 
<MM>, 
<MS>, 
<MT>, 
<MU>, 
<NL>, 
<PC>, 
<RF>, 
<RK>, 
<VM>, 
<XC>, 
<XL>, 



<DX*MPH> 

<DX*MPH> 

<DX*DHA ! DX*MPH> 

<DX*NHM> 

<DX*DMA .' DX*MPH ! DX*IBH> 

<DX*DMA ! DX*NHM> 

<DX«DMA> 

<DX1iDMA> 

<DX*DMA> 

<DX*DMA ! DX*NHM ! DX*NST> 

<DX*MPH> 

<DX*MPH> 

<DX*DMA f DX*NHM> 

<CDX*MPH> 

<dx*dma:> 

<DX*MPH> 
<DX*MPH> 

<:dx*dma ! DX*MPH ! dx*ibh:> 

<DX*DMA } DX*MPH ! DX*IBH> 

<DX*DMA ! DX*MPH f DX*IBH> 

<DX*DMA i DX*NHM ! DX*IBH ! DX^NSTI: 

<DX*MPH> 

<DX*MPH> 

<DX*DMA> 

<DX*DMA ! DX*MPH> 

<DX*EBA ! DX$NCA ! DX*NHM> 

<DX*MPH> 

<:dx*mph> 



The following table specifies which version number is to be 
returned by CL in response to the XL/CL . SPFUN used by 
VTCDM to match it to the handler. 
The macro has 3 arguments: 

1. Minimum RT-11 version number where this CL version should be used. 

2. Minimum RT-11 update number where this CL version should be used. 

3. CL version number that starts with specified RT-11 version. 

. MACRO CLVX RTV, RTU, CLV 

. BYTE RTU, RTV 

. WORD CLV 

. ENDM CLVX 



rSINIT - 


— TSX s 


tartup i 


58 






59 






60 


000522 




61 


000522 




62 


000526 




63 


000532 




64 


000536 




65 


000542 




66 


000546 




67 


000552 




68 


000556 




69 






70 






71 






72 






73 






74 






75 






76 






77 


000556 




78 


000556 


00 S 


79 


000560 


005 


80 


000562 


005 


81 


000564 


005 


82 


000566 


005 


83 


000570 


005 


84 


000572 


005 


85 


000574 


000000 


86 






87 






88 






89 






90 






91 






92 






93 




000000 


94 




000002 


95 




000004 


96 




000006 


97 






98 




000031 


99 






100 


000576 




101 


001024 




102 


001024 


000576' 


103 






104 






105 






106 


001026 


012700 


107 


001030 


077167 


108 


001032 


046543 


109 


001034 





initializ MACRO 



V05. 04 


Thursdc 


• y 


17-Dec-S'; 


; Def 


ine CL 


versions be 


CLVTBL 










CLVX 




5, 1, 16. 




CLVX 




5,6, 16. 




CLVX 




5, 35> 16. 




CLVX 




5,44, 16. 




CLVX 




5, 2, 17. 




CLVX 




5,3, 17. 




CLVX 




5,4, 18. 


CLVEND 
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on RT-11 versions 



; Version 
i Version 
t Version 
; Version 
; Version 
J Version 
i Version 



5. 
5. 
5. 



1 

IB 

1 



5. IC 
5. 2 
5. 3 
5. 4 



RT-11 v5. 4 changed the structure of the LD translation tables. 
The folloiuing table is used to determine which table format 
to return to LD spfun 372. 



000 
001 
006 
035 
044 
002 
003 



Use original format for the following versions: 



J Version 5. 

i Version 5. 1 

; Version 5. IB 

; Version 5. 1 

j Version 5. IC 

; Version 5. 2 

i Version 5. 3 



-DITBL: 








. BYTE 


5,0 




. BYTE 


5, 1 




. BYTE 


5, 6 




. BYTE 


5, 35 




. BYTE 


5,44 




. BYTE 


5,2 




. BYTE 


5,3 




. WORD 






The following data structures 
TSX-Plus overlays as they are 



are used to hold information about 
being initialized. 



Offsets in structure for each overlay 



OS*SIZ 


= 





OS*FLG 


= 


2 


DS*OVL 


== 


4 


OS**SZ 


=r 


6 


HAXOVL 


= 


25. 


OSTABL: 


. BLKB 


OS**SZ*MAXOVL 


OSEND: 






OSLAST: 


. WORD 


OSTABL 


> Tabl 


B of sys 


tern overlays t 


LOWOVL: 


. RAD50 


/CSH/ 




. RAD 50 


/TIO/ 


LOWEND: 


. RAD50 


/LOK/ 



Total space needed for overlay 
0==>Load into XM space, l==>over TSINIT 
Pointer to overlay table entry 
Size of each overlay entry 

Maximum number of system overlays 

Reserve room for table 

-Define end of table 

Pointer past last used entry in table 

must be loaded over TSINIT 

TSCASH 

TSTIO 

TSLOCK 

End of table 






TSINIT - 


— TSX 


1 




2 




3 




4 




5 


001034 


6 


001044 


7 


001123 


8 


001203 


9 


001215 


10 


001216 


11 


001265 


12 


001323 


13 


001365 


14 


001433 


15 


001470 


16 


001537 


17 


001600 


18 


001636 


19 


001700 


20 


001744 


21 


002016 


22 


002045 


23 


002132 


24 


002220 


25 


002307 


26 


002407 


27 


002452 


28 


002516 


29 


002557 


30 


002624 


31 


002666 


32 


002717 


33 


002727 


34 


003017 


35 


003062 


36 


003115 


37 


003203 


38 


003236 


39 


003326 


40 


003377 


41 


003427 


42 


003464 


43 




44 
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Text messages 



077 
111 
111 
114 
000 
124 
103 
103 
116 
103 
111 
103 
103 
103 
105 
111 
124 
110 
103 
123 
123 
103 
115 
105 
110 
107 
122 
056 
111 
103 
103 
111 
105 
111 
111 
103 
103 
040 



124 
156 
156 
151 

123 
141 
141 
165 
141 
156 
141 
141 
141 
162 
156 
123 
141 
157 
171 
171 
141 
141 
162 
141 
145 
145 
040 
156 
141 
141 
156 
162 
156 
156 
141 
141 
101 



123 
166 
166 
156 

130 

156 
156 
155 
156 
163 
156 
156 
156 
162 
166 
130 
156 
155 
163 
163 
156 
160 
162 
156 
156 
144 
142 
163 
156 
156 
163 
162 
163 
163 
156 
156 
102 



TSXHD: 

BADLIN 

BDVMSG 

BDLMSG 

CRLF: 

REQMIS 

BADOPN 

RSFERR 

CONSPC 

B DSP OP 

BOSF: 

NOKMON: 

NOCCL: 

CFHMSG 

ERHMSG 

ERHNDV 

TSXRUN 

HSGER : 

NOCLOK 

NXIiMSG 

NEXMSG 

NOODT: 

HN2BIG 

ODTRDM 

NOSYDV 

TOOBIG 

REDUCE 

BYTES: 

PHSOVF: 

COSRT: 

SVERR : 

TSXSIZ: 

RDERR: 

SRTOVF 

CSHOVF 

INDOPN 

UCLOPN 

R50CHR 



NLIST 

ASCII 

ASCII 

ASCII 

ASCII 

BYTE 

ASCII 

ASCIZ 

ASCIZ 

ASCII 

ASCII 

ASCIZ 

ASCIZ 

ASCIZ 

ASCII 

ASCII 

ASCII 

ASCIZ 

ASCII 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCII 

ASCIZ 

ASCIZ 

ASCIZ 

ASCII 

ASCIZ 

ASCIZ 

ASCII 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCII 

EVEN 

LIST 



BEX 

/?TSX-F-/<200> 

'Invalid status register address for T/S line: '<200> 

'Invalid interrupt vector address for T/S line: '<200> 

/Line # = /<200> 



/TSX generation did not include device /<200> 

/Cannot open program swap file/ 

/Cannot open PLAS region swap file/ 

/Number of contiguous blocks needed = /<200> 

/Cannot open spooled device: /<200> 

/Insufficient disk space for spool file/ 

/Cannot find "SY: TSKMON. SAV" file/ 

/Cannot find "SY: CCL. SAV" file/ 

/Cannot find device handler file: /<200> 

/Error reading device handler file: /<200> 

/Invalid RT-11 version for device handler: /<200> 

/TSX is already running/ 

/Handler not generated with extended memory support: /<200> 

/Computer line time clock < 50 or 60 Hz) is not working/ 

/System is not equipped with memory management hardware/ 

/System is not equipped with extended memory management hardware/ 

/Cannot locate "SY: SYSODT. REL" file/ 

/Mapped handler is larger than SKB: /<200> 

/Error on read of SYSODT rel file/ 

/Handler for SY device was not loaded/ 

/Generated TSX system is too large/ 

/Reduce size of TSGEN by /<200> 

/. bytes/ 

/Insufficient total physical memory for generated system/ 

/Cannot open shared run-time file: /<200> 

/Cannot locate "SY: TSX. SAV"/ 

/Insufficient memory to load 

/Error reading "SY: TSX. SAV"/ 

/Insufficient memory to load 

/Insufficient memory space for data cache/ 

/Cannot open TSXIND file/ 

/Cannot open TSXUCL data file/ 

/ ABCDEFGHIJKLMNOPQRSTUVWXYZ*. *0123456789/ 

BEX 



all mapped system regions/ 
all shared run-time systems/ 



i 



\ 



c 

i 
f 

I 
I 

4 

i 
i 

i 

I 
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I 



3 
4 
5 
6 
7 

a 

9 
10 
11 
IP? 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003546 
003554 



003560 
003564 
003566 
003572 



003574 
003600 
003604 
003610 
003612 
003616 
003622 
003626 
003630 
003632 
003636 
003640 
003644 
003646 
003650 
003654 



003534 



003534 004737 004426 ' 



003540 012737 0000000 OOOOOOG 



012777 
105037 



105737 
001403 
004737 
000407 



012702 
012700 
105737 
001004 
012702 
012700 
012701 
010221 
010021 
105737 
001411 
105737 
001006 
005200 
032700 
001402 



123456 
OOOOOOG 



OOOOOOG 



. SBTTL ■«• •«• « TSX Initialization «• * « 

. SBTTL # * » Initialization taking over control from RT-11 * * * 

The initialization code from this point onward takes over 
control from RT-il. 

This code is placed at the front of TSINIT so that non-initialized 
data structures can be allocated over it. 

TAKOVR: 

Read in system overlays that go over TSINIT 

CALL INIOVL ;Read overlays over TSINIT 

Set pointer to monitor offset vector 

MOV #MONVEC, €#RMON ; SET POINTER TO MONVEC TABLE 

Initialize last word in interrupt stack btbb so u>e won't report a 

stack overflow if an interrupt occurs. 

Set STKLVL to to cause INTEN not to switch to interrupt 

stack during initialization. 

MOV #123456, ©I NTSND ; Say stack has not overflowed 

CLRB STKLVL ; Say we are already on interrupt stack 

If we a,T& running on a Prof essionali disable its interrupts 



OOOOOOG 
OOOOOOG 



IF NE, PROASM 

TSTB PROFLG 
BEQ 7* 
CALL PRONOP 
BR 5* 

ENDC ; NE, PROASM 



; Are we running on a PRO? 

i Br if not on a PRO 

; Disable its interrupts 

; Ignore unexpected interrupts on PRO 



OOOOOOG 

000044 

OOOOOOG 

OOOOOOG 

000340 

000120 



OOOOOOG 
OOOOOOG 

000020 



Set up vectors to catch unexpected interrupts 

Note: We encode the interrupt vector address in the PS — 

the low-order two bits of the address are dropped (they are 

always zero) and the remainder of the address is encoded in the 

PS fields priority <high-order 3 bits) and n~z-v-c <low-order 4 bits). 

SEND UNEXPECTED INTERRUPTS TO THIS ROUTINE 

120 ENCODED IN PS FIELDS 

ARE WE TO IGNORE UNEXPECTED INTERRUPTS? 

BR IF NOT 

ROUTINE TO GO TO TO IGNORE INTERRUPT 

SET PR I 0=7 IN PS 

INIT ALL VECTORS STARTING AT 120 

SET PC FOR INTERRUPT 

SET PS FOR INTERRUPT (ENCODED ADDRESS VALUE) 

ARE WE TO IGNORE UNEXPECTED I NTS? 

BR IF YES 

IS THIS A PRO? 

BR IF YES 

ADVANCE ENCODED ADDRESS 

DID WE CARRY INTO »T" -FIELD? 

BR IF NOT 



7*; 


MOV 


ttUEXINT, R2 




MOV 


#44, RO 




TSTB 


VUXIFL 




BNE 


10* 


5«: 


MOV 


#UEXRTN, R2 




MOV 


#340, RO 


10*: 


MOV 


#120, Rl 


1«: 


MOV 


R2, (Rl) + 




MOV 


RO, (Rl)+ 


6$: 


TSTB 


VUXIFL 




BEQ 


2* 




TSTB 


PROFLG 




BNE 


2* 




INC 


RO 




BIT 


#20, RO 




BE(3 


2* 
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58 


003656 


062700 


000020 




59 


003662 


020127 


000420 


c 


60 


003666 


103757 






61 


003670 


010237 


000060 




62 


003674 


012737 


000014 


000062 


63 


003702 


010237 


000064 




64 


003706 


012737 


000015 


000066 


65 










66 










67 










68 










69 










70 


003714 


012700 


000340 


1 


71 


003720 


012737 


OOOOOOG 


OOOOOOG 


72 


003726 


010037 


000002G 




73 










74 










75 










76 


003732 


005001 






77 


003734 


012721 


000137 




78 


003740 


012721 


OOOOOOG 




79 


003744 


012721 


OOOOOOG 




80 


003750 


005021 






81 


003752 


012721 


OOOOOOG 




82 


003756 


005021 






S3 


003760 


012721 


OOOOOOG 




84 


003764 


010021 






85 


003766 


012721 


OOOOOOG 




86 


003772 


005021 






87 


003774 


012721 


OOOOOOG 




88 


004000 


010021 






89 


004002 


012721 


OOOOOOG 




90 


004006 


005021 






91 


004010 


012721 


OOOOOOG 




92 


004014 


005021 






93 


004016 


012737 


OOOOOOG 


000114 


94 


004024 


010037 


000116 




95 


004030 


012737 


OOOOOOG 


000244 


96 


004036 


010037 


000246 




97 


004042 


012737 


OOOOOOG 


000250 


98 


004050 


005037 


000252 




99 










100 










101 










102 


004054 


010546 






103 


004056 


012705 


000006 




104 


004062 


004737 


OOOOOOG 




105 


004066 


012605 






106 










107 










108 










109 


004070 


004737 


004764 ' 




110 










Ul 










112 










113 


004074 


004737 


005376 ' 




114 








J 



!*: 



ADD 
CMP 
BLO 
MOV 
MOV 
MOV 
MOV 



#20, RO 

R 1 , #420 

1* 

R2, @#60 

#14>e#62 

R2> €#64 

#15, e#66 



Page 6-1 



i FORCE CARRY OUT OF T-FIELD AND INTO PRIO FIELD 

i DONE ALL INTERRUPT VECTORS OF INTEREST? 

; BR IF NOT 

; CATCH CONSOLE TERMINAL VECTOR TOO 

; ENCODED 60 

; ENCODED 64 



Direct clock interrupt to a dummy RTI instruction to avoid it causing 
trouble during the initialization process when things aren't set up 
and ready to go. 

11$: MOV #340, RO i PRIORITY 7 PS 

MOV #CLKRTI,e#CLKVECi Send clock interrupt to RTI instruct for now 
MOV RO, @#CLKVEC^-2 



Take over traps, EMT, BPT, etc. 



CLR 


Rl 


MOV 


#137, <R1)+ 


MOV 


#JMPO, <R1)+ 


MOV 


#TRP4, <R1)+- 


CLR 


(Rl) + 


MOV 


#TRP10, <R1>+ 


CLR 


(Rl) + 


MOV 


#TRP14, (Rl) + 


MOV 


RO, <R1> + 


MOV 


#TRP20, <R1) + 


CLR 


(Rl) + 


MOV 


#TRP24, <R1)+ 


MOV 


RO, (Rl)+- 


MOV 


#EMTENT, <R1)+ 


CLR 


(Rl) + 


MOV 


#TRP34, <R1>+ 


CLR 


<R1) + 


MOV 


#MEMPAR,€#114 


MOV 


RO, e#116 


MOV 


#FPTRAP, @#244 


MOV 


RO, ©#246 


MOV 


#TRP250, e#250 


CLR 


@#252 



j Start at location 

; CJMP @#JMP03 ==> 

i CATCH JUMPS TO LOCATION 

iTRAP 4 

; TRAP 10 

i TRAP 14 <BREAKPOINTS) 

i lOT TRAP 

; POWER FAIL 

; EMT 

iTRAP 

i MEMORY PARITY TRAP 

i TRAP 244 — FLOATING POINT TRAP 
i Enter FPU trap at priority 7 
iTRAP 250 — MEMORY MANAGEMENT TRAP 



Initialize the system mapped region. 



MOV 


R5, -<SP) 


MOV 


#6, R5 


CALL 


MAPSYS 


MOV 


(SP)+,R5 



SAVE THE CURRENT CONTENTS OF R5 
INITIALIZE TO THE FIRST REGION 
CALL THE SYSTEM MAPPING ROUTINE 
RESTORE THE PREVIOUS CONTENTS OF R5 



Set up Unibus mapping if needed 

CALL SETUMP i SET UP UNIBUS MAPPING 

Initialize time-sharing lines. 

CALL LININI i INIT LINES & SET UP VECTORS 



I 
I 
I 
I 
i 
i 
I 

€ 

i 
i 

€ 

i 
i 
C 
( 
t 
I 



( 

i 

c 
< 
i 
f 
< 
I 
I 
i 
i 
t 

c 
c 
c 
i 

< 
i 
I 
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115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 



004100 
004106 
004112 
004114 
004122 
004124 
004132 
004136 
004140 



004146 
004154 
004160 
004162 
004166 
004170 



004200 
004204 
004206 
004212 



004216 



004230 
004234 
004236 



004250 
004256 
004264 

004272 



052737 
105737 
001415 
023727 
103411 
052737 
105737 
001403 
052737 



013737 
013702 
105022 
020237 
103774 
112712 



004174 004737 004766' 



105737 
001404 
004737 
004737 



OOOOOOG 

0000000 
005314' 



013702 
012700 
010022 
020237 
103774 
1 1 2737 



ooooooe 

123456 

OOOOOOG 

177777 OOOOOOe 



004244 000137 OOOOOOG 



013737 000042' OOOOOOG 
013737 000044' 000004 
013737 000046' OOOOOOG 



Enable memory management 

(The kernel-mode mapping registers are already set up) 



c 
f 



OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 010000 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



BIS 


#MMENBL, e#SROMMR 


TSTD 


SR3FLG 


BEQ 


4* 


CMP 


PHYMEM, #4096. 


BLO 


4* 


BIS 


#EMMAP, @#SR3MMR 


TSTB 


MEM256 


BEQ 


4* 


BIS 


#I0MAP,@#SR3MMR 



Turn on memory management 

Does machine have memory management reg 3? 

Br if register does not exist (no ext. mem. ) 

Does machine have at least 256Kb phys memory? 

Br if not 

Set extended memory on 

Will TSX-Plus use at least 256Kb? 

Br if not 

Turn on 22-bit memory management for I/O 



Initialize the memory allocation table 

4*: MOV MAPPAR, e#KPAR5 i Map to memory allocation table 

Point to 1st usei — page entry 
8$: CLRB (R2)+ i Say page is free 

Done all user pages? 

Loop if not 

Set flag marking start of system pages 

Set up I/O device interrupt vectors. 

CALL DEWEC ; SET UP DEVICE INTERRUPT VECTORS 

If we BTe running on a Professional* initiailize the PI handler 



MOV 


MAPPAR, e#KPAR5 


MOV 


LOMAP, R2 


CLRB 


(R2) + 


CMP 


R2, HIMAP 


BLO 


8* 


MOVB 


#MA*SYS, (R2) 



. IF NE, PROASM 

TSTB PROFLG 
BEQ 3* 
CALL PROHAN 
CALL PIDVEN 
i NE, PROASM 



. ENDC 

Initialize interrupt stack area 



iAre we running on a Professional? 

; Br if not 

i Initialize the PI handler 

;Make device table entry for PI 



3*: MOV INTSND, R2 

MOV #123456, RO 

12*: MOV RO, (R2) + 

CMP R2, INTSTK 

BLO 12* 

MOVB #-l,STKLVL 



i Point to base of stack area 

; Get initialization value 

J Initialize the interrupt stack area 

i Finished? 

; Loop if not 

» Say uie are not running on interrupt stack 



Enter TSEXEC to complete initialization 

JMP INIJMP i ENTER INITIALIZATION ROUTINE IN TSEXEC 

Abort the initialization 



INISTP: MOV 
MOV 
MOV 

9*: .EXIT 



CLKlOOi @#CLKVEC i Restore RT-11 clock vector 
RTTRP4, @#4 ; Restore trap 4 vector 
RTMNVC, e#RMON i Restore RT-11 monitor pointer 

i RETURN TO RT-11 



TSINIT — TSX startup initiaiiz 


LODINI — Load 

1 

2 
3 


a segment over 7 






"T 






5 






6 






7 






B 






9 004274 


010146 




10 004276 


010346 




11 004300 


010446 




12 






13 






14 






15 004302 


016201 


000004 


16 






17 






18 






19 004306 


016204 


000000 


20 004312 


072427 


000005 


21 004316 


020461 


OOOOOOG 


22 004322 


101402 




23 004324 


016104 


OOOOOOG 


24 






25 






26 






27 004330 


010503 




28 004332 


072327 


000006 


29 004336 






30 004372 


103406 




31 






32 






33 






34 004374 


010561 


OOOOOOG 


35 






36 






37 






38 004400 


012604 




39 004402 


012603 




40 004404 


012601 




41 004406 


000207 




42 






43 






44 






45 004410 






46 004416 






47 004424 







TSINIT 
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SBTTL LODINI 



Load a segment over TSINIT 



LODINI is called to read an overlay segment over TSINIT. 



Inputs: 
R2 = Pointer to OSTABL entry for segment to be loaded. 
R5 = 64-byte block # where segment is to be loaded. 



LODINI: MOV 
MOV 
MOV 



R1,-(SP) 
R3, -(SP) 
R4, -<SP> 



Get pointer to linker-built overlay entry 

MOV 0S*0VL(R2),R1 i Get pointer to linker-built table 
Determine how much code to read from the segment 



MOV 0S*SIZ(R2),R4 

ASH #5, R4 

CMP R4, 0. SIZ<R1) 

BLOS 1* 

MOV 0. SIZ(R1),R4 

Read the segment into memory 



iGet # 64-bytB blks allocated for segment 
» Convert to # words 

i Compare with original segment code size 
i Br if segment was truncated by init 
iGet code size 



1*: 



iGet 64-byte block # 
/Convert to byte address 



MOV R5, R3 

ASH #6, R3 

. READW #AREA, #17, R3, R4, 0. BLK ( R 1 ) 

BCS 10* ; Br if error on read 

Store the physical address of the segment into the overlay descriptor 

MOV R5, 0. PAR<R1) ; Remember physical address of segment 



Fini shed 



(SP)+, R4 
<SP)+, R3 
(SP)+,R1 



MOV 
MOV 
MOV 
RETURN 

Error on read 



10*:. .PRINT #TSXHD 
. PRINT #RDERR 
. EXIT 



TSINIT 
INIOVL 



— TSX startup initial iz MACRO V05. 04 Thursday 17-Dec-S7 OS: 39 Page 8 

— Load system overlays over TSINIT 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004426 010246 
004430 010546 



004432 013705 000140 
004436 072527 177772 
004442 042705 176000 



004446 012702 000576' 

004452 005762 000002 

004456 001406 

004460 004737 004636' 

004464 004737 004274' 

004470 066205 000000 

004474 062702 000006 

004500 020237 001024' 

004504 103762 



004506 013702 0000000 

004512 072227 000006 

004516 012705 OOOOOOG 

004522 004737 004600' 



004526 013702 OOOOOOG 

004532 001406 

004534 072227 000006 

004540 012705 OOOOOOG 

004544 004737 004600 ' 



004550 013702 OOOOOOG 

004554 001406 

004556 072227 000006 

004562 012705 OOOOOOG 

004566 004737 004600' 



004572 012605 
004574 012602 
004576 000207 



SBTTL INIOVL — Load system overlays over TSINIT 



INIOVL is called to load into memory those system overlays that 
are to be placed over the TSINIT code. 



Inputs: 
Overlay segment information is in OSTABL. 



INIOVL: MOV 
MOV 



R2, -<SP) 
R5, -<SP) 



Initialize pointer to start of memory area for overlays 



MOV OVLBAS, R5 
ASH #-h, R5 
BIC #176000, R5 



i Start of area for overlays 

; Convert to 64-byte # 

; Clear possible propagated sign bits 



Begin loop to load each overlay that goes over TSINIT 



1«: 



?*: 



MOV 


#OSTABL, R2 


TST 


0S*FLG(R2) 


BEQ 


2* 


CALL 


KEYSEO 


CALL 


LODINI 


ADD 


0S*SIZ<R2),R5 


ADD 


#OS**SZ, R2 


CMP 


R2, OSLAST 


BLO 


1* 



Point to 1st overlay segment entry 

Does this segment go over TSINIT? 

Br if not 

Remember base of some segments 

Load the segment 

Advance memory pointer 

Point to entry for next segment 

Finished all segments? 

Loop if not 



MOV 


TIOBAS, R2 


ASH 


#6, R2 


MOV 


#TI0VEC,R5 


CALL 


ENTVEC 



3*: 



Initialize entry point vector for TSTIOX segment 



;Get addr of base of TSTIOX 
; Convert to byte address 
J Point to entry point vector 
j Set up entry point vector 



Initialize entry point vector for TSCASH segment 



iGet addr of base of TSCASH 
i Br if TSCASH not loaded 
; Convert to byte address 
; Point to entry point vector 
/Set up entry point vector 



Initialize entry point vector for TSLOCK segment 



iGet addr of base of TSLOCK 
i Br if TSLOCK not loaded 
/Convert to byte address 
/Point to entry point vector 
/Set up entry point vector 



MOV 


CSHBAS, R2 


BEQ 


3* 


ASH 


#6, R2 


MOV 


#CSHVEC, R5 


CALL 


ENTVEC 



9*: 



MOV 


LOKBAS/ R2 


BEQ 


9* 


ASH 


#6, R2 


MOV 


#LOKVEC/ R5 


CALL 


ENTVEC 


Finished 




MOV 


<SP)+/R5 


MOV 


<SP)+/ R2 


RETURN 





TSINIT - 


- TSX s 


tartup xnitiaJ.1 


ENTVEC - 


- Set u 


p entry 


point V 


1 
2 
















4 








5 








6 








7 








S 








9 








10 








11 


004600 


010246 




12 


004602 


010446 




13 


004604 


010546 




14 


004606 


010204 




15 


004610 


062704 


000004 


16 


004614 


005722 




17 


004616 


012415 




IS 


004620 


060225 




19 


004622 


005715 




20 


004624 


001774 




21 








22 








23 








24 


004626 


012605 




25 


004630 


012604 




26 


004632 


012602 




27 


004634 


000207 
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. SBTTL ENTVEC — Set up entry point vector for overlay 

ENTVEC is called to set UP addresses in an entry point vector for 
overlay segments such as TSCASH that are loaded at addresses different 
from where they are linked. 



Inputs: 
R2 = Address of base of segment. 
R5 = Pointer to vector that is to 



be initialized (word with -1 terminates) 



ENTVEC: MOV 


R2i -(SP> 


MOV 


R4, -<3P) 


MOV 


R5, -<SP) 


MOV 


R2, R4 


ADD 


#4, R4 


TST 


(R2) + 


1*: MOV 


<R4)+, <R 


ADD 


R2, (R5) + 


TST 


<R5> 


BEQ 


1* 


; Finished 




MOV 


(SP)+, R5 


MOV 


(SP)+. R4 


MOV 


<SP)+. R2 


RETURN 





Get addr of base of segment 

Point to start of vector in segment 

Get value to use to relocate offsets 

Get offset to entry point within segment 

Convert to absolute address 

Any more words to initialize? 

Br if yes 



c 
« 

I 

t 
i 

i 
I 
€ 
C 

i 

i 
C 
€ 

i 

I 
4 
I 
i 



€ 



TSINIT - 


— TSX s 


tartup initializ 


KEYSEG - 

1 
2 
3 
4 
5 
6 
7 
S 
9 


— Remem 


ber memory posit 








10 


004636 


010446 




11 








12 








13 








14 


004640 


016200 


000004 


15 


004644 


016004 


OOOOOOG 


16 








17 








18 








19 


004650 


020437 


000156' 


20 


004654 


001003 




21 


004656 


010537 


ooooooe 


22 


004662 


000436 




23 


004664 


020437 


000160' 


24 


004670 


001003 




25 


004672 


010537 


OOOOOOG 


26 


004676 


000430 




27 


004700 


020437 


000164' 


28 


004704 


001003 




29 


004706 


010537 


OOOOOOG 


30 


004712 


000422 




31 


004714 


020437 


000162' 


32 


004720 


001003 




33 


004722 


010537 


OOOOOOG 


34 


004726 


000414 




35 


004730 


020437 


000166' 


36 


004734 


001003 




37 


004736 


010537 


OOOOOOG 


38 


004742 


000406 




39 


004744 


020437 


000170' 


40 


004750 


001003 




41 


004752 


010537 


OOOOOOG 


42 


004756 


000400 




43 








44 








45 








46 


004760 


012604 




47 


004762 


000207 
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system overlays 

. SBTTL KEYSEG — Remember memory position of system overlays 

KEYSEG is called to remember the physical memory position of some 
key system overlay segments. 

Inputs: 
R2 = Pointer to segment entry in OSTABL overlay table. 
R5 = Base 64-byte block physical memory for segment. 

KEYSEG: MOV R4, -<SP) 

Get the name of the segment out of the linker-built segment block 

MOV 0S*0VL<R2),R0 j Point to linker-built entry 
MOV 0. ADR<R0),R4 ; Get the name of the segment 

See if this is a segment whose address we want to remember 



1*: 



3*: 



4*: 



5«: 



6*: 



CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

Finished 



8$: 



MOV 
RETURN 



R4, R50MSG 

1* 

R5, MSGBAS 

8* 

R4, R50WIN 

3* 

R5, WINBAS 

8* 

R4, R50USR 

4* 

R5, USRBAS 

8$ 

R4, R50L0K 

5* 

R5, LOKBAS 

8* 

R4, R50CSH 

6$ 

R5, CSHBAS 

8$ 

R4, R50TI0 

8* 

R5, TIOBAS 

8* 



<SP)+, R4 



i Is this the TSMSG segment? 

i Br if not 

j Remember base of TSMSG segment 

J Is this the TSWIN segment? 

i Br if not 

> Remember base of TSWIN segment 

i Is this the TSUSR segment? 

i Br if not 

» Remember base of TSUSR segment 

i Is this the TSLOCK segment? 

; Br if not 

; Remember base of TSLOCK segment 

; Is this the TSCASH segment? 

; Br if not 

i Remember base of TSCASH segment 

; Is this the TSTIOX segment? 

i Br if not 

; Remember base of module 



i 
c 
c 



TSINIT 
KEYSEG 
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— Remember memory position of system overlays 



1 



4^ 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 

39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



004764 000207 



IF NE, <PR0ASM-1> J Assemble for PDP-11 
SBTTL SETUMP — Set up Unibus mapping if needed 



btlUMF is called to set up the Unibus map registers for 11/44 and 

11/70 systems which more than 256Kb of memory. 

If Unibus mapping is needed* the Unibus map registers # 0~4 are 

initialized for a 1-to-l mapping with the low 40Kb of memory 

so that I/O to system buffers in the low memory area can be done without 

having to do Unibus mapping. 



Outputs: 
UBUSMP: 

SETUMP : MOV 
MOV 
MOV 
MOV 



l==>Do Unibus mapping; 0==>Don't do Unibus mapping. 



R2, -<SP) 
R3, -<SP) 
e#4. -(SP) 
#9*, e#4 



; SAVE TRAP VECTOR 
i CATCH TRAPS 



See if this is a type of maching that needs unibus mapping 



TSTB 
BEQ 



UBUSMP 
9* 



i Is UNIBUS mapping needed? 
; Br if not 



Unibus mapping is needed 

Load unibus map registers # 0-4 to point to low 4SKb of memory. 



2*: MOV #UMRADR, R5 

CLR R4 

MOV #5, RO 

1*: MOV R4, <R5)+ 

CLR (R5)+ 

ADD #8192. ,R4 

SOB RO, 1* 

Turn on Unibus mapping 



; POINT TO CONTROL REGISTER FOR UNIBUS MAP O 

; START MAPPING TO BOTTOM OF MEMORY 

iLOAD 5 MAP REGISTERS 

; SET LOW-ORDER VALUE IN MAP REGISTER 

; CLEAR HIGH-ORDER VALUE IN MAP REGISTER 

i ADVANCE MEMORY ADDRESS 

;LOOP IF MORE MAP REGISTERS TO LOAD 



BIS 
Finished 



#I0MAP,e#SR3MMR ; ENABLE UNIBUS MAPPING 



9$: 



MOV 
MOV 
MOV 

RETURN 
. IFF 



<sp)+, e#4 

(SP)+, R5 
(SP)+, R4 



; RESTORE TRAP VECTOR 



; NE, <PROASM-i> ; Following code for Pro-only assembly 
Define dummy SETUMP routine for Pro 



SETUMP: RETURN 
. ENDC 



;NE, <PR0ASM~1> 



g 

\ 



TSINIT - 


— TSX s 


tartup initializ 


DEVVEC - 

1 

2 
3 


-■- Set u 


p device 


vectors 








4 








5 








6 


004766 


010146 




7 


004770 


010346 




8 


004772 


010546 




9 


004774 


013746 


OOOOOOG 


10 








11 








12 








13 


005000 


012701 


000002 


14 


005004 


016103 


OOOOOOG 


15 


005010 


020327 


000006 


16 


005014 


101436 




17 








18 








19 








20 


005016 


016100 


OOOOOOG 


21 


005022 


001402 




22 


005024 


010037 


OOOOOOG 


23 








24 








25 








26 


005030 


005023 




27 


005032 


005013 




28 


005034 


162703 


000010 


29 








30 








31 








32 


005040 


005005 




33 


005042 


005713 




34 


005044 


001422 




35 


005046 


002403 




36 


005050 


004737 


005140' 


37 


005054 


000416 




38 








39 








40 








41 


005056 


012300 




42 


005060 


006300 




43 


005062 


060003 




44 


005064 


005713 




45 


005066 


002005 




46 


005070 


005723 




47 


005072 


012346 




48 


005074 


004777 


OOOOOOG 


49 


005100 


012605 




50 


005102 


004737 


005140' 


51 


005106 


005713 




52 


005110 


003374 




53 








54 








55 








56 


005112 


062701 


000002 


57 


005116 


020137 


OOOOOOG 



Thursday 17-Dec-87 08:39 Page 12 



. SBTTL DEVVEC 



Set up device vectors 



DEVVEC is called to set up device interrupt vectors for handlers 
that have been loaded. 



DEVVEC : MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R3, -<SP> 
R5, -<SP) 
@#KPAR5, -<SP) 



i Save PAR 5 mapping 
Begin loop to set up vectors for each device 



1*: 



MOV 


#2>R1 


MOV 


HANENT(R1),R3 


CMP 


R3, #6 


BLOS 


6* 



;Get index # of 1st device after TT 
> Get handler entry point address 
i Is this a real device? 
; Br if not 



See if we need to map PAR 5 to this handler 



MOV HANPAR<R1),R0 

BEQ 2* 

MOV RO, @#KPAR5 



; Get PAR 5 base for this handler 
; Br if this is not a mapped handler 
i Map PAR 5 to the handler 



Clear CQE and LQE in handler header 



2*: 



CLR 
CLR 
SUB 



<R3> + 
(R3) 
#10. R3 



/Clear LQE (4th word in handler) 
; Clear CQE (5th word in handler) 
i Point to 1st word of handler 



Set up interrupt vectors for this handler 



CLR 


R5 


TST 


(R3) 


BEQ 


6$ 


BLT 


5* 


CALL 


SETVEC 


BR 


6* 



Multiple vectors. 



5$: 



7%: 



MOV 


(R3)+, RO 


ASL 


RO 


ADD 


RO, R3 


TST 


(R3) 


BGE 


7* 


TST 


(R3) + 


MOV 


(R3)+, -(SP) 


CALL 


SRPRVEC 


MOV 


(SP)+, R5 


CALL 


SETVEC 


TST 


(R3) 


BGT 


7* 



i Assume vector base address is O 

; Any vectors to set up? 

i Br if no vectors to set up 

; Br if multiple-vector 

i Set up the vector 

i Finished 



Get offset to list of vector info 

Get byte offset to vector list 

Get absolute address of vector table 

Is this a PRO device with floating vectors? 

Br if not 

Point to word with device ID 

Get device ID 

Get base vector location for device 

This is base of vector locations 

Set up the vector 

Any more vectors to set up? 

Br if yes 



See if there are more devices to set up. 



6*: 



ADD 
CMP 



#2, Rl 
R1,NUMDEV 



;Advance device table index 
> More to do? 



\ 



f 
i 
i 

i 
i 
4 
4 
t 
I 

€ 
I 

4 
4 
4 
4 
4 
4 
4 
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58 005122 

59 

60 

61 

62 005124 

63 005130 

64 005132 

65 005134 

66 005136 



101730 



012637 
012605 
012603 
012601 
000207 



OOOOOOG 



BLDS 

Finished 

MOV 
MOV 
MOV 
MOV 
RETURN 



1* 



{SP)+, @#KPAR5 
<SP)+, R5 
(SP)+, R3 
(SP)+, Rl 



i Br if yes 



TSINIT - 


— TSX s 


tartup initializ 


BETVEC ■ 


— Set u 


p an int 


errupt v 


1 
2 








3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 








15 








16 








17 








18 








19 




000032 




20 








21 


005140 


010446 




22 








23 








24 








25 


005142 


005761 


OOOOOOG 


26 


005146 


001010 




27 








28 








29 








30 








31 


005150 


012300 




32 


005152 


060500 




33 


005154 


010310 




34 


005156 


062320 




35 


005160 


012310 




36 


005162 


052710 


000340 


37 


005166 


000450 




38 








39 








40 








41 








42 








43 








44 








45 








46 








47 


005170 


013704 


000122' 


48 


005174 


012300 




49 


005176 


060500 




50 


005200 


010420 




51 


005202 


012724 


013746 


52 


005206 


012724 


OOOOOOG 


53 


005212 


012724 


012737 


54 


005216 


016124 


OOOOOOG 


55 


005222 


012724 


OOOOOOG 


56 


005226 


012724 


012746 


57 


005232 


012724 


000340 
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vector for a device 



. SBTTL SETVEC — Set up an interrupt vector for a device 

SETVEC is called to set up one interrupt vector for a device. 

Inputs: 
Rl = Device index number. 
R3 = Pointer into device handler to 3 word cells: 

1. Address of interrupt vector. 

2. Offset to interrupt entry point in handler. 

3. PS for interrupt. 

fib - Base address to add to vector locations. 

Outputs: 
R3 = Points beyond 3 word info block in handler. 

Size of interrupt catching routine compiled for interrupts to 
mapped handlers: 



HPIVSZ = 26. 
SETVEC: MOV R4, -<SP) 

See if this is a mapped handler 



; Amt of code compiled for mapped ints 



TST HANPAR(Rl) 
BNE 1* 



Is this a mapped handler 
Br if yes 



This is an unmapped handler. 

Vector interrupts directly to the handler. 



MOV 


(R3)+,R0 


ADD 


R5, RO 


MOV 


R3, <R0) 


ADD 


<R3)+, <R0)+ 


MOV 


(R3)+, (RO) 


BIS 


#340, <R0) 


BR 


9* 



i Get address of interrupt vector 
i Add base address to vector location 
; Store address of cell in handler 
;Add offset to interrupt entry point 
j Set PS for interrupt 
jMake sure priority = 7 



This is a mapped handler. 

Vector the interrupt to a routine that performs the following functions: 

1. Save the current PAR 5 mapping. 

2. Map PAR 5 to the handler. 

3. Push a dummy PC and PS on stack that will send return from handler 
to a routine that will restore the PAR 5 mapping. 

4. Jump into the handler interrupt entry point. 



1*: MOV XMVBAS, R4 

MOV (R3)+, RO 

ADD R5, RO 

MOV R4, (R0) + 

MOV #013746, (R4) + 

MOV #KPAR5, (R4) + 

MOV #012737, <R4)+ 

MOV HANP AR ( R 1 ) , < R4 ) + 

MOV #KPAR5, <R4) + 

MOV #012746, <R4)+ 

MOV #340, <R4)+ 



j Point to area where we store interrupt rtn 

iGet address of interrupt vector 

iAdd base address to interrupt location 

J Direct interrupt to our routine 

; C MOV @#KPAR5, -<SP> 1 

i I MOV #par5val,@#KPAR5 3 



C MOV #340, -(SP) 3 



c 
r 
i 
i 
i 
1 c 
i 

i 

4 

4 
i 
i 
i 
i 
i 
i 
4 
4 



TSINIT 
SETVEC 
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2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



IF NE, PROASM 

. SBTTL PIDVEN 



Make device table entry for PI device 



If we are running on a Professional computer* PIDVEN is called to 
make an entry in the device tables for the PI device. 



005314 010146 



PIDVEN; MOV 



Rl> -<SP) 



Increase number of defined devices and get device table entry index 
to use for the PI device. 



005316 062737 000002 OOOOOOG 
005324 013701 OOOOOOG 



ADD 
MOV 



#2, NUMDEV 
NUMDEV, Rl 



J One more device 

j Get device table index 



Set up information about the PI device 



005330 013761 

005336 012761 

005344 005061 OOOOOOG 

005350 005061 OOOOOOG 

005354 012761 

005362 012761 



005370 012601 
005372 000207 



000200' OOOOOOG 
OOOOOOC OOOOOOG 



000006G OOOOOOG 
OOOOOOG OOOOOOG 



MOV 
MOV 
CLR 
CLR 
MOV 
MOV 

Finished 



R50PI, PNAME<R1) i Set device name 

#<:DS*SFN!DI*PI>, DVSTAT(Rl) i Set device status flags 

DVFLAG<R1) ; Clear other flags 

DEVSIZ<R1) ;Clear device size 

#PIHAN+6, HANENKRDi Set handler entry point (4th word) 

#PR0SIZ,HANSIZ<R1) i Set handler size 



ENDC 



MOV 

RETURN 

; NE, PROASM 



<SP)+,R1 



I 

4 
4 
4 
4 
4 
€ 

4 

f 

4 

< 

€ 

4 

i 

4 

4 

4 

4 

4 
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i 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



.IF NE, <PROASM -i> ;If assembling for PDP-11 
. SBTTL LININI — Initialize time-sharing lines 



LINJNI is called to initialize the time-sharing lines. 

This consists of setting up interrupt vectors and setting control 

flags in the status registers. 



LININI: MOV 
MOV 
MOV 
MOV 
MOV 



R 1 . - ( SP ) 
R2, -<SP> 
R3, -<SP> 
R4, -<SP) 
R5, -<SP) 



Set up interrupt vectors for DLll lines 



MOV 
MOV 
BIT 
BNE 
BIT 
BEQ 
CMP 
BNE 

DL-11 line 

MOV 
MOV 
MOV 
MOV 
ASL 
SUB 
ADD 
ADD 
MOV 
MOV 
MOV 
MOV 

Try next line 



#2>R1 ; Index for Ist line 

#340, R4 ; Priority 7 PS 

#*DEAD, LSW3<R1) i Is this line uninstalled? 

8* ; Br if yes 

#*HARD, LSW3(R1) ; Is this line connected to hardware? 

8* i Br if not 

LCDTYP<R1),#CDX*DL ;Is this a DLll line? 

8* i Br if not 



INVEC(Rl), R5 

#INRECV, R2 

#<:0TRECV-6>, R3 

R1,R0 

RO 

RO, R2 

R1,R0 

RO, R3 

R2, (R5) + 

R4, <R5) + 

R3, <R5) + 

R4, (R5) + 



8$: 



ADD 


#2, Rl 


CMP 


R 1 , #LSTHL 


BLOS 


1* 



GET ADDRESS OF INPUT VECTOR 

END OF RECEIVING VECTOR 

START OF INPUT INTERRUPT ENTRY POINTS 

GET LINE NUMBER 

4 BYTES PER INPUT INTERRUPT ENTRY POINT 

GET ADDRESS OF INPUT INTERRUPT ENTRY POINT 

6 BYTES PER OUTPUT INTERRUPT ENTRY POINT 

GET ADDRESS OF OUTPUT INTERRUPT ENTRY POINT 

SET PC FOR INPUT INTERRUPT ENTRY POINT 

SET PS FOR INPUT INTERRUPT 

SET PC FOR OUTPUT INTERRUPT 

SET PS FOR OUTPUT INTERRUPT 



ADVANCE LINE INDEX NUMBER 
MORE TO DO? 
BR IF YES 





Init 


i a 1 i z e 


multiplexers. 


SETMUX: 


MOV 


#LSTMX,R1 iGe 






BEQ 


SETLIN i Br 


3*: 




CMP 


MXTYPE<R1),#CDX*DZ 






BEQ 


1* ;Br 






CMP 


MXTYPE<R1>,«CDX*VH 






BNE 


2* iBr 






CALL 


VHINIT i In 






BR 


4* 


2*: 




CALL 


DHINIT > In 






BR 


4* 



; last mux index 
if there are no 
Is this a DZll, 
if DZll 

Is this a DHVll'; 
if not 
Initialize a DHVll 



# 

mux lines 

DHll, or DHVll? 



a DHll 



1 





TSINIT 




PIDVEN 








58 




59 




60 




61 




62 




63 




64 




65 




66 




67 




68 




69 




70 




71 




72 




73 




74 




75 




76 




77 




78 




79 




80 




81 




82 




83 




84 




85 




86 




87 




88 




89 




90 




91 




92 




93 




94 




95 




96 




97 




98 




99 




100 




101 




102 




103 




104 




105 




106 




107 




108 




109 




110 




111 




112 




113 




114 
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1$ 


CALL 


DZINIT 


4*. 


SUB 


#2>R1 




BNE 


3* 




Enable all 


lines 


SETLIN: MOV 


#LSTHL, Rl 


4*; 


BIT 


#*DEAD, LSW3<R1) 




BNE 


2* 




BIT 


#*HARD. LSW3(R1) 




BEQ 


2* 




BIT 


#*PHONE, ILSW2(R 




BEQ 


3* 




BIS 


#*NOIN, LSW3(R1) 


3$: 


MOV 


LCDTYP<R1),R5 




MOV 


LMXNUM<R1),R0 




BEQ 


1* 




CMP 


R5, #CDX*DZ 




BEQ 


6$ 




CMP 


R5, #CDX*VH 




BEQ 


7* 




DHll line 






CALL 


DHLPRM 




BR 


2* 




DHVli line 




7*: 


CALL 


VHLPRM 




BR 


2* 




DZ-11 line 




6«: 


MOV 


LMXLN(R1),R2 




BIS 


#017030>R2 




MOV 


R2, eMXLPR(RO) 




BR 


2* 




DL-li line 




1*: 


MOV 


TSR(Rl), R2 




MOV 


(R2),R3 




CLR 


<R2) 




MOV 


RBR<R1),R2 




MOV 


(R2),R3 




MOV 


RSR(R1).R2 




CLR 


(R2) 




MOV 


#RDINT, (R2) 



Do next line 

?*: SUB 
BGT 

Finished 



#2, Rl 
4* 



; Initiali ze a DZll 
i More to enable?' 
; Br if yes 



INDEX # OF LAST REAL LINE 

IS THIS LINE INSTALLED? 

BR IF NOT 

Is this line connected to hardware? 

Br if not 

; IS THIS A DIAL-UP LINE? 

BR IF NOT 

IGNORE INPUT TILL DIAL UP OCCURS 

Get comm device type code 

IS THIS A DL-11 OR MUX LINE? 

BR IF DL-11 

Is this a DZll or DHll? 

Br if DZll 

Is this a DHll or DHVll? 

Br if DHVll 



Set line parameters for DHll line 



Set line parameters for DHVll line 



; Get line # within mux group 
; Set line enable flags 
iEnable the line 



i ADDRESS OF TRANSMITTER STATUS REGISTER 
i CLEAR TRANSMITTER STATUS REGISTER 

ADDRESS OF RECEIVER BUFFER REGISTER 
CLEAR RECEIVER BUFFER REGISTER 
ADDRESS OF RECEIVER STATUS REGISTER 

i ENABLE RECEIVER INTERRUPTS 



g 

\ 
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115 MOV (SP)+, R5 

116 MOV <SP)+, R4 

117 MOV <SP)+, R3 
lis MOV <SP)+, R2 

119 MOV <SP)+, Rl 

120 RETURN 



TSINIT - 
PIDVEN - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 
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. SBTTL DHLPRM — Set line parameters for a DHll line 

DHLPRM is called to set up the line parameters for a DHll line. 

Inputs: 
Ri = Physical line index number. 

DHLPRM: 

Enable DM11 for this line 



MOV 

TST 

BEQ 

BICB 

BISB 

MOV 

Finished 

2*: RETURN 



LMXNUM(R1 ),R0 ; Get mux index number 

DM*CSR(RO> iDoes this DHll have DM11 modem control? 

2* i Br if not 

#MF*LIN, @DM*CSR(RO) i Clear line # field in DM11 CSR 

LMXLN<R1), @DM*CSR<RO)i Select line of interest 

#MF*LE,©DM*LSR<RO)j Enable the line 



\ 



TSINIT 
PIDVEN 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
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. SBTTU VHLPRM — Set line parameter values for DHVll line 

Set the line parameter values for a DHVll line. 

Inputs: 
Rl = Physical line index number. 

VHLPRM: 

Enable the line 



MOV 
BIC 
BISB 
MOV 

Finished 

RETURN 



LMXNUM<R1 .)> RO ; Get mux index number 

#VF*LIN, eVH*CSR(RO) iZleav line # field in mux CSR 

LMXLN<R1), eVH4CSR<R0) ; Set our line # 

#<VF*RE>. @VH$LCR<RO) ; Enable the line 



c 

I 
I 
i 
i 
i 

I c 
♦ 

> i 
i 

€ 
€ 

i 

i 
i 

i 

I 

4 

i 

i 

I* 
i 

I 



TSINIT - 
PIDVEN - 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 
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. SBTTL DZINIT — Initialize a DZll multiplexer 

DZINIT is called to initialize a DZll multiplexer. 

Inputs: 
Rl = Mux index number. 

DZINIT: 

See if this DZll is installed 



TST 
BEQ 



MXCSR(R1.> 
4* 



i Is this DZ-11 installed? 
/Br if not 



Set up interrupt vector connections for this MUX 

CALL MUXVEC J Set up interrupt vectors for this DZll 

Start up the mux operation 



1*: 
2*: 



BIS 
BIT 
BNE 
MOV 
BMI 
CLRB 



Finished 
4$: RETURN 



#ZCLR,eMXCSR<Rl)i Do master clear on DZ-11 

#ZCLR,SMXCSR<R1 )i Wait for clear to finish 

1* 

SMXRBUF < R 1 ) , RO ; C 1 ear silo 

2* 

@MXDTR(R1) i Disable ail data sets 



\ 
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3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



. SBTTL HUXVEC — Set up interrupt vectors for a multiplexer 

MUXVEC is called to set up the interrupt vector connections for 
a UZll, DHll, or DHVll multiplexer. 

Inputs; 
Rl = Mux index number. 



MUXVEC: MOV 
MOV 
MOV 



R2, -(SP) 
R3, -<SP> 
R5. -(SP) 



Set interrupt vector for mux 

Get address of input interrupt vector 

End of receiving vector 

Output interrupt table 

Get mux index number 

4 bytes per line in input int table 

Get address of input entry point 

6 bytes per mux in output entry point table 

Get address of output int entry point 

Set PC for input interrupt 

Set PS for output interrupt 

Set PC for output interrupt 

Set PS for output interrupt 

Now store an instruction sequence of the form: 

JSR R5, @#interrupt„routine 
. WORD mux_index 

to catch mux output interrupts and vector them to the interrupt routine. 



MOV 


MXVEC<R1), R5 


MOV 


#INMXV, R2 


MOV 


#<0TMXV-6>. R3 


MOV 


R1,R0 


ASL 


RO 


SUB 


RO, R2 


ADD 


R1,R0 


ADD 


RO, R3 


MOV 


R2, (R5) + 


MOV 


#340, (R5) + 


MOV 


R3, (R5) + 


MOV 


#340, <R5) 



1$: 



MOV 
MOV 
CMP 
BEQ 
MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 

Fini shed 



#004537, <R3)+ i JSR R5, @#x 

#DZOINT, RO i Assume this is a DZll 

MXTYPE(R1),#CDX«DZ ils this a DZll? 

j Br if yes 
J Assume this is a DHVll 

Is this a DHVll? 
; Br if yes 

; Get interrupt routine for DHll's 
j Store address of interrupt routine 
; Store mux index number 



1* 

#VHOINT, RO 

MXTYPE < R 1 ) , #CDX$VH 

1* 

#DHOINT, RO 

RO, <R3) + 

Rl, (R3) 



9*: 



MOV 
MOV 
MOV 
RETURN 



<SP)+, R5 
(SP)+, R3 
<SP)+, R2 
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. SBTTL DHINIT — Initialize a DHll multiplexer 

DHINIT is called to initialize a DHll multiplexer 

Inputs: 
Rl = Mux index number 

DHINIT: 

See if this DHll is installed 



TST MH*SCR(R1) 
BEQ 9* 



; Is this DHll installed? 
J Br if not 



1*: 



Connect interrupt vector to DHll 

CALL MUXVEC i Set up interrupt vectors for DHll 

Cl«?ar the multiplexer 

MOV #HF*MC,@MH*SCR<R1) /Set the master-clear flag 

BIT #HF*MC, eMH*SCR<Rl) iWait for the master clear to be completed 

BNE 1* 

Clear the DM11 scanner 



3*: 



MOV 
BEQ 
MOV 
BIS 



Finished 



DM*CSR(R1),R0 i Is there an associated DM11? 



3* 

#MF*CS, (RO) 

#MF*CM, <R0) 



; Br if not 

i Clear the scanner 

;Clear the multiplexer 



9*: 



RETURN 
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. SBTTL VHINIT — Initialize a DHVll multiplexer 

Perform initialization for a DHVll mux. 

Inputs: 
Rl = Mux index number. 

VHINIT: 

See if this DHVll is installed 



TST VH*CSR(R.t) 
BEQ 9* 



;Is this DHVll installed? 
i Br if not 



i Connect interrupt vector to DHVll 

CALL MUXVEC ; Set up interrupt vectors 

; Clear the multiplexer 



1*: 



MOV #VF*MR, @VH*CSR(R1) ; Reset the multiplexer 
BIT #VF*MR, eVH*CSR(Rl) iWait for reset to finish 
BNE 1* 

Clean out the FIFO buffer in the mux 



2*: 



MOV 
BLT 



SMXRBUF<R1 ), RO ; Get contents of receiver buffer register 
2* i Loop until RBUF empty 



Finished 
9*: RETURN 



c 
t 
« 

i 

€ 
€ 



TSINIT — 
PIDVEN — 

1 



TSX startup 
Make device 



initiaiix MACRO V05. 04 Thursday 17-Dec-87 08- 39 Paae 22 
table entry for PI device 



3 
4 
5 
6 
7 
8 
9 005374 

10 005374 

11 005374 

12 005374 

13 005374 

14 005374 

15 005374 

16 005374 
17 

18 
19 

20 005376 

21 005400 
22 

23 



End of code that can be omitted for Pro-only systems 
• IFF mnE, <PKUAbTI •!.> i Begin code for Pro only 



This code is assembled only for Pro systems. 
T/S line init routines for Pro only. 



005404 
005410 
005416 



25 

26 

27 

28 

29 

30 

31 005420 

32 

33 

34 

35 005424 

36 005432 

37 005434 
38 

39 
40 

41 005442 

42 005446 
43 

44 
45 

46 005450 

47 005452 
48 

49 
50 
51 



000207 



010146 
012701 



004737 
032761 
001411 



LINCHK 
DHLPRM 
VHLPRM 
D2INIT 
MUXVEC 
DHINIT 
VHIWIT 



c 

I 

I 

i 

i 



RETURN 
LININI routine for Pro systems 



OOOOOOG 



005454' 
OOOOOOG OOOOOOG 



LININI: MOV 
MOV 



R 1 , - ( SP ) 
#LSTLIN>R1 



i Get # of last line 
Determine if this line is connected to hardware 



1*: 



CALL 

BIT 

BEQ 



LINTYP i Determine the type of this line 

#*HARD. LSW3(R1 ) ils this line connected to hardware? 
2* i Br if not 



004737 OOOOOOG 



032761 
001403 
052761 



162701 
003356 



012601 
000207 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

000002 



Call Pro line initialization routine 

CALL PROLIN ; Initialize Pro line 

Do some special init for phone lines 

BIT #*PHONE, ILSW2<R1); Is this a dialup line? 

KEQ 2* i Br if not 

BIS #*NOIN. LSW3<R1) i Ignore input till dial up occurs 



Ch&ck next line 



?«: 



SUB 
BGT 

Finished 



#2, Rl 
1* 



i Get index # of next line 
/Loop if more lines to do 



MOV ( SP > +, R 1 
RETURN 

End of Pro-only code 

. ENDC ; NE, <PR0ASM~1> 



/ 

t 



TSINIT 
LINTYP 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

n 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
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005454 
005460 
005462 
005466 
005470 
005476 



005500 
005504 
005510 
005516 
005524 



005526 
005534 
005542 
005550 
005556 



020127 
101422 
020127 
103004 
012761 



016100 
010160 
012761 
012761 
000414 



012761 
012761 
012761 
012761 
052761 



005564 000207 



SBTTL LINTYP 



Determine the type of a line 



LINIYP is called to determine if the current line is a time-sharing line 
a CL line* or a non-hardware connected line. 



Inputs: 
Rl = Line index number 



0000000 
OOOOOOG 



LINTYP: CMP 
BLOS 
CMP 
BHIS 
177777 OOOOOOG MOV 

BR 



Rl, #LSTPL 

1* 

Rl, #FSTIOL 

2* 

#-l,LCLUNT(Rl> 

9* 



; Is this a time-sharing line? 

; Br if yes 

; Is this a CL line? 

; Br if yes 

i Say line not in use as a CL line 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



This is a CL line 

?*: MOV LCLUNT<R1), RO ; Get the CL unit index number 

MOV Rl, CL*LIX<RO) ; Say which line is assoc with this CL unit 

MOV #CL0TIR,L0UTIR<R1> ; Set terminal output interrupt routine 

MOV #CLINCP, LINIR<R1 ) ; Set terminal input interrupt routine 

BR 8* 

This is a time-sharing line 



177777 
177777 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



1*: 



8*: 



MOV 
MOV 
MOV 
MOV 
BIS 

Finished 



#-1, LCLUNT<R1 ) j Say line is not in use as a CL unit 
#-l,LXCL<Rl) j Line is not cross-connected to CL unit 
#NEDCHR, L0UTIR<R1) i Set terminal output interrupt routine 
#TTINCP, LINIR(R1 ) i Set terminal input interrupt routine 
#*HARD, LSW3<R1 ) ;This line is connected to hardware 



9*: 



RETURN 



I 
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1 

2 

3 

4 

5 

6 

7 

8 005566 

9 
10 
11 

12 005566 013737 000004 000044' 

13 005574 013737 OOOOOOG 000046' 

14 005602 013737 OOOOOOG 000042' 
15 

16 

17 

18 

19 005610 

20 

21 

22 

23 005630 

24 

25 

26 

27 005650 012700 OOOOOOG 

28 005654 162700 037776 

29 005660 003422 

30 005662 010046 

31 005664 

32 005672 

33 005700 

34 005706 012600 

35 005710 004737 025436' 

36 005714 

37 005722 000137 004250' 
38 

39 
40 

41 005726 012701 OOOOOOG 

42 005732 012700 123456 

43 005736 010021 

44 005740 020127 OOOOOOG 

45 005744 103774 

46 005746 010106 
47 

48 
49 

50 005750 

51 005756 012700 000242' 

52 005762 104375 

53 005764 103410 

54 005766 

55 005774 

56 006002 000137 004250' 

57 006006 



. SBTTL * * « Initialization done with RT-11 running » * # 

Initialization at start of execution of TSX. 

The initialization done in this section uses the running RT-11 system 
to perform functions for it. 

INITGO: 

Save some RT-11 pointers in case ujb abort the initialization 

MOV @#4, RTTRP4 ; Save trap 4 vector 

MOV e#RMON, RTMNVC ; RT-11 monitor pointer 

MOV e#CLKVEC,CLK100 i Clock vector (defined in TSGEN at 100) 

Get the current time of day which u»b will use later to make sure 
the line time clock is working. 

. GTIM #AREA, #SYTIMH ; Get the current time of day 
Trap '^C for later test so uie can restore clock vector 

. SCCA #AREA, #CCAFLG ; Catch control-C 

Check for TSGEN size overflow 

;Get top of TSGEN 

jWill TSKMON have problems? 

;Continue if not 

; Save overflow size 

; Print error message 

j Recover amount of overflow 



MOV 


#GENTOP, RO 


SUB 


#<40000-2>, RO 


BLE 


15* 


MOV 


RO, -<SP) 


. PRINT 


#TSXHD 


. PRINT 


#TOOBIG 


. PRINT 


#REDUCE 


MOV 


(SP)+, RO 


CALL 


PRTDEC 


. PRINT 


#BYTES 


JMP 


INISTP 



Initialize the system stack (below 1000) 



15*: MOV #SSEND, Rl 

MOV #123456>R0 

13*: MOV RO, <R1)+ 

CMP R1,#SS 

BLO 13* 

MOV R 1 , SP 



; Point to bottom of stack 

; Get initialization value 

j Initialize the stack 

J Reached top of the stack area7 

i Loop if not 

i Run on system stack 



Make sure we are not already running under TSX. 



1*: 



. SERR 




MOV 


#GTLIN, RO 


EMT 


375 


BCS 


1* 


. PRINT 


#TSXHD 


. PRINT 


#TSXRUN 


JMP 


INISTP 


. HERR 





DON'T DIE ON ERRORS 

TSX EMT TO GET LINE NUMBER 

TRY A TSX EMT 

BR IF NOT UNDER TSX 

ALREADY UNDER TSX 



} RENABLE FATAL ERRORS 



i 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



006034 
006040 



006056 
006064 
006070 
006074 
006076 
006102 



005737 OOOOOOG 



010037 
020027 
101402 
012700 
010037 



000132' 

ooooooe 

OOOOOOG 
000302 ' 



006106 
006112 
006132 
006134 
006140 



006142 
006150 
006152 
006160 
006162 



012705 177776' 



160005 
010537 



000046 



032737 
001406 
023737 
001002 
005237 



OOOOOOG 
000510 
000034 ' 



OOOOOOG 
000222 ' 



006166 
006166 



004737 025562 



006172 
006176 
006202 
006206 
006212 
006214 



012705 
004737 
004737 
020527 
103002 
012705 



000000 ' 
011652' 
012316' 
005566' 

005566 ' 



Make sure this machine has memory management facilities. 



. IKPSET #AREA, #NOXM 
TST @#SR0MMR 
. TRPSET #AREA, #0 



; CATCH TRAPS 

i TRY TO ACCESS MEMORY MANAGEMENT REGISTER 

; Release trap control 



Request all available memory from RT-11. 



3*: 



. SETTOP #-2 

MOV RO, TOPMEM 

CMP RO, #VPAR5 

BLOS 3* 

MOV #VPAR5, RO 

MOV RO, MEMLIM 



REQUEST ALL AVAILABLE MEMORY 

REMEMBER WHERE TOP OF MEMORY IS 

TSX CANNOT EXTEND ABOVE PARS BASE ADDRESS 

BR IF RT-11 IS BELOW THAT 

SET PAR5 BASE AS UPPER LIMIT ON TSX SIZE 

TSX MAY NOT EXCEED THIS UPPER LIMIT 



Lock USR in memory for speed 

(Set USR to swap over TSEMT to get out of the way) 

GET THE BASE OF TSINIT 
GET SIZE OF RT-11 USR MODULE 
ALLOCATE SPACE BELOW TSINIT FOR USR 
SET USR TO SWAP OVER TSEMT 
5$: . LOCK ; LOCK USR IN MEMORY 

Determine if we are to run system with the system debugger 



MOV 


#TSINIT-2, R5 


. GVAL 


#AREA, #374 


SUB 


RO, R5 


MOV 


R5, @#46 


. LOCK 





BIT ttCHAIN, €#JSWLOC 

BEQ 10* 

CMP @#510, R500DT 

BNE 10* 

INC ODTFLG 



WERE WE CHAINED TO? 

BR IF NOT 

SHOULD WE RUN UNDER ODT? 

BR IF NOT 

SET FLAG SAYING DEBUGGER WANTED 



Call Pro TSX initialization only if assembling for the Pro 
Jump to INISTP if checking fails. 



10*: 
. IF 



NE, PROCID 
CALL INSCHK 
iNE, PROCID 



i «* Do if assembling for pro only ** 

; PERFORM VERIFICATION AND DECRYPTION FOR PRO 



ENDC 

Allocate non-initialized buffer space over TSINIT. 

j Allocate buffer space over TSINIT 

; Do al location 

J Allocate silo buffers for lines 

; Are we beyond code that takes over control? 

; Br if yes 

jAdvance up to initial code 

Allocate the interrupt stack over TSINIT 

If we are running on a Pro, allocate buffer for the PI handler 

initialization code over the interrupt stack area. 



MOV 


#TSINIT, R5 


CALL 


ALOCBF 


CALL 


ALCSLO 


CMP 


R5, #INITGO 


BHIS 


12* 


MOV 


#INITGO, R5 



006220 
006224 



001274 
010537 
062705 



OOOOOOG 
000002 



PIINSZ = 
12*: MOV 
ADD 



700. 

R5, INTSND 

#2, R5 



i Space needed for PI init code 

; Ptr to base of interrupt stack 

; Always leave last word of stack for flag val 
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115 006230 013701 OOOOOOG 

116 006234 032761 OOOOOOG 000370 

117 006242 001407 

ii5 006544 105557 OOOOOOG 

119 006250 010537 000150' 

120 006254 062705 001274 

121 006260 000402 

122 006262 062705 OOOOOOG 

123 006266 010537 OOOOOOG 
124 

125 

126 

127 006272 004737 021624' 

128 

129 

130 

131 

132 006276 020527 025556' 

133 006302 103002 

134 006304 012705 025556' 

136 

137 

138 006310 004737 007454' 

139 

140 

141 

142 006314 004737 007510' 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 006320 004737 015356' 

156 

157 

158 

159 006324 013701 OOOOOOG 

160 006330 016102 000300 

161 006334 042702 OOOOOOC 

162 006340 052702 OOOOOOC 

163 006344 010237 OOOOOOG 
164 

165 006350 016137 000370 OOOOOOG 

166 006356 052737 OOOOOOG OOOOOOG 

167 006364 123727 OOOOOOG OOOOOOG 

168 006372 001003 

169 006374 052737 OOOOOOG OOOOOOG 
170 

171 006402 016102 000372 



11*: 
14«: 



MOV 

BIT 

BEQ 

INUB 

MOV 

ADD 

BR 

ADD 

MOV 



@#RMON, Rl iGet pointer to RT-11 RMDN base 
#CW*PRO> 370<R1) j Are we running on a PRO? 



11* 

PROFLG 

R5, PROBUF 

#PIINSZ,R5 

14* 

#INTSSZ,R5 

R5, INTSTK 



; Br if not 

i Set flag saying this is a PRO-350 
; Save pointer to buffer area 
^Allocate space for buffer 

/Allocate space for interrupt stack 
; Address of top of interrupt stack 



CMP 


R5. #INITOP 


BHIS 


4* 


MOV 


#INITOP, R5 



Allocate space for those overlays that go over TSINIT 

CALL OVLPOS /Determine houi much space to alloc for overlay 

Note: from this point onward we are carrying the address of the 
base of the free memory area in R5. 

J Have we allocated up to top of TSINIT? 

; Br if yes 

i Advance to top of TSINIT 

Allocate a 2048. byte work buffer 

4$: CALL ALCWRK ; Allocate work buffer 

Allocate empty Region Control Blocks for use by handlers 

CALL ALCHRB 

If we were started in debug mode/ load ODT. 

/Don't allow ODT for production PRO version 

j Are we to load system debugger? 

; Br if not 

/Load ODT and start it 

Initialize memory management registers for 1-to-l mapping but 
leave memory management turned off 

t*: CALL MEMINI i Initialize memory management 

Extract information from RT-11 configuration and sysgen words. 

MOV @#RM0N/R1 /GET POINTER TO BASE OF RMON 

MOV 300<R1)/R2 i GET RT-11 CONFIGURATION WORD 

BIC #CW*GDH+CW*BTH+CW*LGS/ R2 /RESET A FEW FLAGS 

BIS #CW$FB+CW$FGJ+CW*USR+CW*XM, R2 /SET A FEW FLAGS 

MOV R2/ CONFIG ; INITIALIZE OUR CONFIGURATION WORD 

Now get extended conf igutation word. 

MOV 370<R1)/C0NFG2 i EXTENDED CONFIGURATION WORD 

BIS #CW*ESP/ C0NFG2 ; SET EXIT NO SWAP FLAG 

CMPB VBUSTP, #QBUS /Is this a Q-bus machine? 

BNE 25* ;Br if not 

BIS #CW*QBS/ C0NFG2 ; Set QBUS flag 

And sysgen option word. 

5*: MOV 372(R1>/R2 



. IF 


EQ/PROCID 


TST 


ODTFLG 


BEQ 


2* 


CALL 


GETODT 


. ENDC 


/EQ/PROCID 



\ 
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042702 
052702 
010237 



ooooooc 
ooooooc 

OOOOOOG 



172 006406 

173 006412 

174 006416 

17t3 

176 006422 

177 006442 010037 OOOOOOG 



BIC 
BIS 
MOV 



#SG*ELG+SG*PAR+SG*MTB> RJ 



#SG*MMU+SG*MTM+SG*IDT+SG*TSX, R2 
R2, SYSOEN ; INITIALIZE OUR SYSGEN WORD 
Get system version number 

. GVAL #AREA, #276 J GET RT-11 SYSTEM VERSION NUMBER 
MOV RO, SYSVER i SET AS TSX-PLUS VERSION NUMBER 
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i 

€ 



006446 
006454 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 006456 

11 006464 

12 006472 

13 006500 

14 006506 

15 006512 
16 

17 
18 

19 006514 

20 006522 

21 006530 

22 006536 

23 006544 
24 

25 
26 

27 006550 

28 006554 

29 006556 

30 006562 
31 

32 

33 

34 006566 

35 

36 

37 

38 

39 006572 

40 006600 

41 006602 

42 006606 
43 

44 
45 
46 

47 006614 

48 006622 

49 006630 

50 006634 

51 006640 

52 006646 
53 

54 
55 

56 006652 

57 006660 



032737 
001017 



012737 
012737 
012737 
012737 
012700 
000416 



012737 
012737 
012737 
012737 
012700 



012702 
070200 
010237 
010337 



032737 
001405 
004737 
012737 



013737 
012737 
005037 
005037 
012737 
005037 



012737 
105737 



Set up a few clock constants based on clock frequenci 
See if we have a 50 or 60 Hz clock 



OOOOOOG 0000000 



000074 
000036 
000264 
000006 
001130 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



INICLK: BIT 
BNE 

60 Hz clock 

MOV 
MOV 
MOV 
MOV 
MOV 
BR 

50 Hz clock 



000062 
000031 
000226 
000005 
000764 



020700 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



2$: 



MOV 
MOV 
MOV 
MOV 
MOV 



#CW*50H, CONFIG 
2* 



#60. ,TK1SEC 
#30. , TK5VAL 
#180. , TK3SVL 
#6. , TKIVAL 
#600. , RO 
8* 



#50. , TKISEC 
#25. , TK5VAL 
#150. , TK3SVL 
#5. , TKIVAL 
#500. , RO 



; 50 or 60 Hz clock? 
;Br if 50 Hz 



Clock ticks per 1 second 
Clock ticks per 0.5 seconds 
Clock ticks per 3 seconds 
Clock ticks per 0. 1 seconds 
Get # clock ticks per 10 seconds 



Clock ticks per 1 second 
Clock ticks per 0.5 seconds 
Clock ticks per 3 seconds 
Clock ticks per 0. 1 seconds 
Get # clock ticks per 10 seconds 



Set number of clock ticks per day 



8*: 



MOV 
MUL 
MOV 
MOV 



#8640. , R2 
RO, R2 
R2, DATIMH 
R3, DAT I ML 



i <# seconds per day) / 10. 
; Get # clock ticks per day 
i High-order value 
; Low-order value 



004737 005374 



Do a fast check to make sure specified T/S line addresses are ok. 
CKLIN: CALL LINCHK ; CHECK T/S LINE ADDRESSES 

Do PR0~350 system initialization 



OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 



IF NE, PROASM 

BIT #CW*PRO, C0NFG2 

BEQ INIDEV 

CALL PROINI 

MOV #PIDRIV, PIDPTR 

i HE. PROASM 



i Are we running on a PRO-350? 

} Br if not 

; Do PRO-350 initialization 

; Set up pointer to clock driven PI routine 



ENDC 

Make entry in device handler table for TT device. 



000172' OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

000002 OOOOOOG 

OOOOOOG 



177777 OOOOOOG 
OOOOOOG 



INIDEV: MOV 
MOV 
CLR 
CLR 
MOV 
CLR 



R50TT, PNAME 

#DI*TT, DVSTAT 

DVFLAG 

DEVSIZ 

#2, HANENT 

NUMDEV 



; PERMANENT NAME "TT" 

; SET DEVICE STATUS FLAGS FOR TT 



; SET UP HANENT SO HANDLER LOOKS RESIDENT 
; IT IS DEVICE # 



Make device table entry for LD (logical disk) device 



MOV #-l,LDDEVX 
TSTB VLDSYS 



i ASSUME LD SUPPORT NOT WANTED 
i IS LD SUPPORT GENNED IN? 
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000002 OOOOOOG 

OOOOOOG 

uOuuOOw 

000176' OOOOOOG 

OOOOOOC OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

000002 OOOOOOG 

014156' 



OOOOOOG 
013436' 



6*: 



58 006664 001427 

59 006666 062737 

60 006674 013701 

61 006700 010157 

62 006704 013761 

63 006712 012761 

64 006720 012761 

65 006726 005061 

66 006732 012761 

67 006740 004737 
68 
69 
70 

71 006744 005727 

72 006750 001402 

73 006752 004737 
74 
75 
76 

77 006756 012737 000002 000000 8$: 
73 006764 005037 OOOOOOG 

79 006770 032737 OOOOOOG OOOOOOG 
BO 006776 001402 
81 007000 005037 000230 
82 
S3 
84 

85 007004 004737 016426' 
86 
87 
88 

89 007010 004737 015462' 
90 
91 
92 

93 007014 004737 015756' 
94 
95 
96 

97 007020 004737 016430' 
98 
99 
100 

101 007024 010537 

102 007030 013701 

103 007034 006301 

104 007036 062701 

105 007042 070127 

106 007046 060105 
107 
108 
109 

110 007050 004737 025006 
111 
112 
113 
114 007054 004737 013134 



BEQ 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
CALL 



6* 

#2, NUMDEV 

NUMDEV, Rl 

R1,LDDEVX 

R50LD, PNAME<R1) 



i BR IF NOT 

} ONE MORE DEVICE 

i GET DEVICE TABLE INDEX 

i REMEMBER INDEX NUMBER FOR LD DEVICE 

jSET device NAME <"LD") 
#<DS*DIR+DS*SFN+DS«VSZ+DI«LD>iDVSTAT(Rl);SET DEV STATUS FLAGS 
#DX*EBA. DVFLAG<R1 ); Say buffers must be on even byte boundaries 
DEVSIKRl) 

#2, HANENT(Rl) > SAY HANDLER IS RESIDENT 
LDINIT i DETERMINE LD TRANSLATION TABLE FORMAT 



Make device table entry for CL (communications line) device 

; Are there any communications lines? 

; Br if not 

j Initialize CL handler 



TST 


#CLTOTL 


BEQ 


8* 


CALL 


CLINIT 



Disable clock interrupts. 

MOV #2, @#0 

CLR @#CLKVEC 

BIT #CW*PRO, CONFGI 

BEQ 1* 

CLR @#230 



LOAD RTI IN LOCATION 
ATTACH CLOCK INTERRUPT TO 
ARE WE RUNNING ON A PRO? 
BR IF NOT 
380 CLOCK INTERRUPT VECTOR 



Set up memory parity control 
1*: CALL PARSET ; SET UP MEMORY PARITY CONTROL 

Determine how much memory is installed on machine 

CALL MEMTST ; FIND OUT HOW MUCH PHYSICAL MEMORY THERE IS 

Set up information about the size of the job context area 

CALL CXTALC i Determine size of job context area 

Load TSX-Plus device handlers that go in low memory 

CALL GETHNL ; Load low memory handlers 

Reserve space for interrupt vector intercept routines for mapped handlers 



000122' 
000124' 

OOOOOOG 
000032 



MOV R5, XMVBAS 

MOV NMXHAN, Rl 

ASL Rl 

ADD #NXIVMH. Rl 

MUL #MPIVSZ,R1 

ADD R1,R5 



; Save address of base of area for XM vectors 
i Get # mapped handlers 

i Reserve room for 2 interrupts per handler 
jAdd # requested extra interrupt vectors 
iCalc space needed for interrupt entry code 
; Advance the address of free memory 



Set up device index number and unit number for "SY: " device. 

CALL SETSY i SET UP INFO ABOUT SY DEVICE 

Open channel to TSKMON and set up information about it. 

CALL OPNKMN i OPEN CHANNEL TO TSKMON 



c 
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Set up information about the IND program 

CALL INDINI i INITIALIZE FOR IND PROGRAM 

Initialize the TSXUCL data file 

CALL UCLINI 
Set name of device that UCL program is to be run from 



116 








117 








lis 


007060 


00473/ 


014236' 


119 








120 








121 








122 


007064 


004737 


015000' 


123 








124 








125 








126 


007070 


013737 


0000000 OOOOOOG 


127 








128 








129 








130 


007076 


004737 


010522' 


131 








132 








133 








134 


007102 


105737 


OOOOOOG 


135 


007106 


001402 




136 


007110 


004737 


007564 ' 


137 








138 








139 








140 


007114 


004737 


010216' : 


141 








142 








143 








144 


007120 


004737 


021622' 


145 








146 








147 








148 


007124 


010500 




149 


007126 


004737 


025312' 


150 








151 








152 








153 








154 


007132 


010537 


OOOOOOG 


155 


007136 


062705 


000077 


156 


007142 


072527 


177772 


157 


007146 


042705 


176000 


158 








159 








160 








161 


007152 


004737 


012536' 


162 








163 








164 








165 








166 


007156 


010504 




167 


007160 


010437 


000136' 


168 


007164 


013705 


000134' 


169 








170 








171 









MOV SYNAME, UCLNAM 
Initialize spooling system 

CALL SPLINI 
Open system swap file 



SET DEVICE NAME FOR UCL PROGRAM 



INITIALIZE SPOOLING SYSTEM 



TSTB 


VSWPFL 


BEQ 


3* 


CALL 


OPNSWP 



IS JOB SWAPPING ALLOWED? 

BR IF NOT 

OPEN THE SYSTEM SWAP FILE 

Open swap file used for F^LAS regions 

3*: CALL OPNRSF ;Open PLAS region swap file 

Set up information about which devices need to have their I/O mapped 

CALL SETMIO ; Set up information about mapped I/O 

We are finished allocating low-memory buffer space. 



MOV 
CALL 



R5, RO 
CHKMEM 



; ENSURE WE DON'T OVERFLOW 40KB 
i ABORT IF > 40KB OR INTO RT-1 1 



From this point on carr\i the free memory address in R5 
as a 64-byte block # in physical memory. 



MOV R5, UMSYTP 

ADD #77, R5 

ASH #-6, R5 

BIC #176000, R5 



SAVE ADDRESS OF NON-EXTENDED SYSTEM TOP 
BOUND UP TO 64-BYTE BOUNDARY 
CONVERT TO 64-BYTE BLOCK # 
KILL SIGN EXTENSION 



Allocate buffer space that is not contrained to 40Kb TSX-Plus region. 

CALL ALBFX i ALLOCATE EXTENDED BUFFERS 

We will now do some allocation from the top of physical memory downward. 
Save the base of free memory in R4 and get the top of free memory to R5. 



MOV 
MOV 
MOV 



R5, R4 

R4, FMEMLO 

FMEMHI,R5 



j Save the base of free memory in R4 

; Save pointer above top of alloc low memory 

i Get 64-byte block # of free high memory 



Load any mapped system code 



TSINIT — TSX startup initializ MACRO V05. 04 Thursday 17-Dec-87 08:39 
* * « Initialization done with RT~11 running ^i■ «• * 



Page 25-3 



172 


007170 


004737 


022234 ' 


173 








174 








1/5 








176 


007174 


005727 


OOOOOOG 


177 


007200 


001415 




178 


007202 


012701 


OOOOOOG 


179 


007206 


010502 




180 


007210 


004737 


023700 ' 


181 


007214 


062701 


OOOOOOG 


182 


007220 


020127 


OOOOOOG 


183 


007224 


103771 




184 


007226 


160502 




185 


007230 


010237 


OOOOOOG 


186 


007234 






187 








188 








189 








190 








191 


007234 


105737 


OOOOOOG 


192 


007240 


001410 




193 


007242 


012701 


000310' 


194 


007246 


010502 




195 


007250 


004737 


023700 ' 


196 


007254 


160502 




197 


007256 


060237 


OOOOOOG 


198 








199 








200 








201 








202 


007262 


004737 


017736' 


203 








204 








205 








206 


007266 


004737 


024312' 


207 








200 








209 








210 








211 








212 


007272 


004737 


016116' 


213 








214 








215 








216 


007276 


004737 


016302' 


217 








218 








219 








220 


007302 


013702 


OOOOOOG 


221 


007306 






222 


007326 






223 


007334 


010037 


OOOOOOG 


224 


007340 


020237 


OOOOOOG 


225 


007344 


001010 




226 


007346 






227 


007354 






228 


007362 


000137 


004250 ' 



5*: 



TST 


#NUMRDB 


BEQ 


4* 


MOV 


#RDB,R1 


MOV 


R5, R2 


CALL 


GETSRT 


ADD 


#RT**SZ,R1 


CMP 


Rl, #RDBEND 


BLO 


5* 


SUB 


R5, R2 


MOV 


R2, SRTSIZ 



4*: 
. IF 



CALL GETMAP > LOAD USR, EMT, MSG, LOCK, SPOOL, etc. 

Load any shared run~time systems 

; Do we need to load any shared run-times? 

; Br if not 

; Point to 1st run-time descriptor block 

; Save initial memory pointer 

; Load a shared run-time system 

i Point to next shared run-time descriptor 

j Are there more to load? 

j Br if yes 

; Compute amt of space used by run-times 

; Save total run-time size 

NE, PROASM 

If we are running on a Pro, load the PI handler like a shared run-time 

; Are we running on a Pro? 
; Br if not 

j Point to dummy shared run-time block for PI 
; Save current memory pointer 
; Load PI handler like a shared run-time 
; Calculate amt of space used by PI handler 
; Count in mapped-handler size 
. ttNDC ; NE, PROASM 

Load any mapped handlers 

10*: CALL GETHNH ; Load mapped handlers 

Allocate space for data cache buffers and control tables 

CALL CSHBUF .: Allocate space for data cache 

We have finished allocating all of the memory used by the system. 
Allocate and initialize a memory map table that will be used to 
show which pages are available for user jobs. 

CALL MAPALC ; Allocate memory map table 

Set up info about maximum memory space available to jobs 



TSTB 


PROFLG 


BEQ 


10* 


MOV 


#PISRT, Rl 


MOV 


R5, R2 


CALL 


GETSRT 


SUB 


R5, R2 


ADD 


R2, MHNSI2 



€ 
i 



CALL SETJSZ 
Set up date and time 



SYTIML. R2 
#AREA, #SYTIMH 



MOV 

. GTIM 

. DATE 

MOV RO, SYSDAT 

CMP R2, SYTIML 

BNE 11* 

. PRINT #TSXHD 

. PRINT #NOCLOK 

JMP INISTP 



J SET JOB SIZE INFO 



Save time we got at start of init 
SET TIME OF DAY 
GET DATE 
SET SYSTEM DATE 

Make sure some time has elapsed 
Br if clock is running 
Print error message heading 
Print clock-not-working message 
iAbort initialization 



t 
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229 
230 
231 



007366 



233 
234 
235 
236 

237 007370 013702 000154' 

238 007374 006202 

239 007376 013703 000152' 

240 007402 000241 

241 007404 006003 

242 007406 000303 

243 007410 
244 

245 

246 

247 007444 004737 025352' 

248 

249 

250 

251 007450 000137 003534' 



■> Unlock the USR so that TSEMT uiill be swapped back in. 
11*: .UNLOCK i RELEASE USR 

> 

i Read back into memory that part of the resident portion of TSX 
•y that we overlayed tuith our work buffer. 



WRKSIZ,R2 
R2 
WRKBUF, R3 



; Get size of work buffer 

i Convert to # words 

; Get address of work buffer BveB 

i Convert to block # in TSX. SAV file 



MOV 

ASR 

MOV 

CLC 

ROR R3 

SWAB R3 

. READW #AREA, #17, WRKBUF, R2, R3 ; Read back TSX over work buffer 

See if user requested control-C abort 

CALL CCATST ; JUMP TO INISTP IF -^C-^C BEFORE THIS POINT 

Jump to code at end of TSINIT which takes over control from RT-11 

JMP TAKOVR 
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3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



007454 010246 



007456 
007462 
007466 
007472 
007476 



007504 
007506 



012702 
062702 
042702 
010237 
012737 



012602 
000207 



SBTTL * « * Subroutines * » « 

SBTTL ALCWRK — Allocate a work buffer 



Allocate a 2048. byte work buffer over a resident portion of TSX. 
This area will be restored from the TSX. SAV disk file after we 
are finished using the work area. 



Outputs: 
WRKBUF = Address of base of work buffer. 
WRKSIZ = Size of work buffer (2048). 



ALCWRK: MOV 



R2, -<SP) 



Get address of start of area where buffer can go and then bound 
up to a block boundary. 



OOOOOOG 
000777 
000777 
000152' 
004000 000154 



MOV 
ADD 
BIC 
MOV 
MOV 

Fini shed 



MOV 
RETURN 



#EXCBUF, R2 
#777, R2 
#777, R2 
R2, WRKBUF 
#2048. , WRKSIZ 



(SP)+, R2 



; Get address of base of buffer area 
J Bound up to block boundary 
i Set to block boundary 
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007512 013700 0000000 



1 

2 
3 

n 
*t 

5 

6 

7 

9 

9 
10 
11 

12 007510 010246 
13 
14 
15 
16 
17 
IS 
19 

20 007516 010537 0000000 

21 007522 010537 OOOOOOG 

22 007526 162737 OOOOOOG OOOOOOG 

23 007534 012725 177777 
24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 



. SBTTL ALCHRB 



Allocate Region Control Blocks for handlers 



I 

€ 



007540 012702 000005 
007544 005025 
007546 077202 



007550 005300 
007552 003372 



007554 012725 177777 



007560 012602 
007562 000207 



This routine allocates and initializes empty Region Control Blocks for 
use by device handlers. 

Inputs: 
R5 = Pointer to start of memory area where RCB's are to be built. 

Outputs: 
R5 - Pointer past end of RCB area. 

ALCHRB: MOV R2, -(SP) 

Get count of # RCB's to build 

MOV NDVRCB> RO ; Get # RCB's to build for handlers 

Store pointer to start of RCB area and store -1 at beginning of area 

MOV R5, HANRCB ; Start of RCB area 

MOV R5, HANRCO > Store offset relative to MONVEC 

SUB #MONVEC, HANRCO ; Convert address to offset 

MOV #-1, <R5)+ > Store -1 at start of area 



Allocate and initialize to zero the RCB's 



1$: 


MOV 


#5. ,R2 


2*: 


CLR 


(R5) + 




SOB 


R2, 2* 



iEach RCB has 5 words 
i Zero the RCB 



See if there are more RCB's to build 



DEC 
BGT 



RO 
1* 



/More RCB's to initialize? 
i Loop if yes 



Store -1 at end of RCB area 

MOV #-1, (R5)+ iMark end of RCB list 

Finished 

MOV (SP)+, R2 
RETURN 





TSINIT - 




ALCHRB • 








1 




*~i 




tSm 




3 




4 




5 




h 




7 




8 




9 




10 




11 




12 




13 




14 




15 




16 




17 




IS 




19 




20 




21 




22 




23 




24 




25 




26 




27 




28 




29 




30 




31 




32 




33 




34 




35 




36 




37 




30 




39 




40 




41 




42 




43 




44 




45 




46 




47 




48 




49 




50 




51 




52 




53 




54 




55 




56 




57 
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IF NE> <PRDASM"-1> ;If not assembling for Pro only 
. SBTTL LINCHK — Check validity of T/S line 

LINCHK is called to check the validity of specified T/S line 
vector and status register addresses. 

If an uninstalled line is detected this routine aborts if 
INIABT=1 or sets the $DEAD flag for the line if INIABT=0. 



LINCHK: 


MOV 


R1.-<SP) 




MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


R4, -(SP) 




MOV 


@#4, -(SP) 


i Take 


over 


trap control 



iSAVE ORIGINAL TRAP VECTOR 



; CATCH TRAPS 

Loop through the test for each line. 

MOV #LSTLIN, Rl J NUMBER OF LAST LINE 

Determine if this is a primary line or an I/O line and set the 
addresses of the interrupt service routines. 

Determine the type of this line 

Is this line connected to hardware? 

Br if not 

IS THIS A DL-11 OR MULTIPLEXER LINE? 

BR IF DL~11 

GET DZll OR DHll STATUS REGISTER ADDRESS 

BR IF ALREADY MARKED AS DEAD 

GET MUX INTERRUPT VECTOR ADDRESS 

MARK LINE AS DEAD 

CONTINUE CHECKING TERMINALS 

GET DL-11 STATUS REGISTER ADDRESS 

GET DL-11 INTERRUPT VECTOR ADDRESS 

gister address. 

IS IT IN I/O PAGE? 

ERROR IF NOT 

IS IT ON 8-BYTE BOUNDARY? 

ERROR IF NOT 

TRY TO ACCESS IT AND SEE IF WE TRAP 

vector address. 

} CAN'T BE BELOW 60 

; OR ABOVE 500 

; MUST BE ON S-BYTE BOUNDARY 

k next. 

i MORE TO CHECK? 
; BR IF YES 

ok. 



1*: CALL 


LINTYP 


BIT 


#*HARD, LSW3(R1 


BEQ 


31* 


MOV 


LMXNUM(R1),R3 


BEQ 


2* 


MOV 


MXCSR(R3),R2 


BEQ 


11* 


MOV 


MXVEC(R3),R4 


BR 


3* 


11*: CALL 


4* 


BR 


31* 


2*: MOV 


RSR(R1)>R2 


MOV 


INVEC(R1),R4 


i Check vali 


dity of status re 


3*: CMP 


R2, #160000 


BLO 


LINTRP 


BIT 


#7, R2 


BNE 


LINTRP 


TST 


@R2 


; Check vali 


dty of interrupt 


CMP 


R4> #60 


BLO 


BADVEC 


CMP 


R4, #500 


BHIS 


BADVEC 


BIT 


#7, R4 


BNE 


BADVEC 


■> This line 


looks good. Chec 


31*: SUB 


#2, Rl 


BGT 


1* 


i Finished - 


— all lines look 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 



MOV 


<SP)+, 


@#4 


MOV 


<SP)+, 


R4 


MOV 


<SP)+, 


R3 


MOV 


<SP)+, 


R2 


MOV 


<SP)+, 


Rl 


RETURN 







; RESTORE TRAP VECTOR 



See if uie should abort or just mark the line as dead. 



4*: 



5*: 



TSTB 

13 NE 

BIS 

TST 

BEQ 

CLR 

RETURN 



VINABT ; DOES HE WANT TO ABORT? 

LINTRP ;YES 

#«DEAD, LSW3<R1) ; MARK LINE AS DEAD 

R3 i IS THIS A DLll OR A MUX LINE? 

5* iBR IF DLll 

MXCSR<R3) iMARK DZ OR DH AS DEAD 



i Trap occured luhile trying to access status register 
6*: CALL 4* 



CALL 
RTI 



i REPORT ERROR OR MARK AS DEAD LINE 
i RETURN TO LINE CHECKING 



Error: Invalid status register address. 

Rl = Line numberj R2 = status register address 



LINTRP: .PRINT #TSXHD 
.PRINT #BADLIN 
BR ERP 



i PRINT ERROR MESSAGE 



Error: Invalid interrupt vector address. 

Rl = Line number, R4 = interrupt vector address 



BADVEC: . PRINT #TSXHD 

PRINT #BDVMSG 

MOV R4, R2 

ERP: MOV R2<R0 

CALL PRTOCT 

. PRINT #CRLF 

.PRINT #BDLMSG 

MOV R1,R0 

ASR RO 

CALL PRTDEC 

. PRINT #CRLF 

JMP INISTP 

. ENDC ;NE, <PROASM-i: 



i PRINT ERROR MESSAGE 

i GET VECTOR ADDRESS TO R2 
J GET ADDRESS TO RO 
; PRINT OCTAL VALUE 

iLINE # = 

iGET LINE NUMBER 

i# 1 

; PRINT LINE NUMBER 

; ABORT INITIALIZATION 



\ 



TSINIT 
OPIMSWP 



TSX startup initializ 
Open system swap file 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
47 

48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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SBTTL OPNSWP — Open system swap file 



OPNSWP is called to open the TSX job swap file. 
It also assigns suap file slots for each line. 

Inputs: 
R5 = Address of base of free memory region 

Outputs: 
SWPCHN = Set up for access to swap file. 
LSWPBKd) = Starting block number in swap file for swap area for line. 



007564 
007566 
007570 



007572 
007576 
007602 



007604 
007610 
007614 
007622 
007624 
007626 
007632 
007634 
007640 
007642 



007646 
007652 
007654 
007660 



010146 
010246 
010346 



013700 
004737 
103546 



012703 
012701 
032761 
001001 
005203 
162701 
003370 
020337 
002002 
010337 



013703 
006303 
063703 
010337 



OPNSWP: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP) 
R3, -<SP) 



Load RT-11 handler for swap device. 



OOOOOOG 
025176' 



MOV 

CALL 

BCS 



SWDBLK, RO 

RTFTCH 

11* 



J Get name of device 

; Fetch the RT-11 handler 

; Br if invalid device 



Compute the maximum number of slots in swap file that we could need 



OOOOOOC 
0000000 
OOOOOOG 



000002 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 1$: 



5*: 



MOV #NSL+NDL, R3 

MOV #LSTPL>R1 

BIT #*DEAD, LSW3 < R 1 ) 

BNE 5* 

INC R3 

SUB #2, Rl 

BGT 1* 

CMP R3, VSWPSL 

BGE 6$ 

MOV R3, VSWPSL 



Get # virtual lines and detached jobs 

Get index to last primary line 

Is this line installed? 

Br if not 

Count another primary line 

Get next line index 

Loop if more lines to check 

Compare with # slots specified 

Br if VSWPSL value is ok 

Reduce number of slots in swap file 



Determine how many blocks are needed for each slot in swap file. 



6$: 



MOV 
ASL 
ADD 
MOV 



VHIMEM, R3 
R3 

CXTPAG, R3 
R3, SLTSIZ 



;GET # BLOCKS NEEDED FOR LARGEST JOB SIZE 

iADD # BLOCKS NEEDED FOR JOB CONTEXT AREA 
; Save size of swap file slot 



007664 070337 OOOOOOG 



007670 
007710 

007712 
007714 



007716 



4*: 



Compute the total number of blocks needed for the swap file. 

MUL VSWPSL, R3 j Multiply by # slots in swap file 

R3 now contains total number of blocks needed in swap file. 
See if swap file already exists on disk. 

LOOKUP #AREA, #1,#SWDBLK;D0ES SWAP FILE EXIST NOW? 



103415 

020003 
001453 



BCS 



2* 



; BR IF NOT 



Swap file exists. See if it is the right size. 

CMP RO, R3 ; IS SWAP FILE THE RIGHT SIZE? 

BEQ 3* iBR IF YES 

Old swap file is not of correct size. 
Delete it and open a new swap file. 

. CLOSE #1 



f 
I 
f 
f 
I 
I 
I 
< 
I 
* 

c 
i 

€ 

t 

c 
I 



K 















TSINIT - 


— TSX s 


tartup initializ 




OPNSWP - 


— Open 


system e 


wap file 


58 


007724 








59 
60 
61 

62 


007744 








63 
64 


007770 


103443 






65 
66 
67 
68 










69 
70 


007772 
007774 


005303 




1 


71 


010032 


005203 






72 


010034 








73 


010042 


000712 




\ 


74 
75 
76 
77 








1 c 


78 


010044 


012700 


0000000 




79 


010050 


013702 


ooooooe 




80 
81 
82 
83 


010054 


004737 


024616' 




84 
85 


010060 








86 
87 










88 


010070 


012603 






89 


010072 


012602 






90 


010074 


012601 






91 


010076 


000207 




> i 

1 


92 
93 
94 
95 


010100 






1 i 


96 


010106 








97 


010114 


004737 


010142' 




98 

99 

100 










101 


010120 


010001 




i 


102 


010122 






1 


103 


010130 








104 


010136 


004737 


010170' 




105 
106 








1 


107 










108 


010142 








109 


010150 


010300 






110 


010152 


004737 


025436' 


^ 


111 


010156 






1 

1 * 


112 
113 
114 


010164 


000137 


004250' 
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.DELETE #AREA,#l,#SWD13LKi DELETE THE OLD SWAP FILE 

Create a new swap file. 

?*: .ENTER #AREA, #1, #SWDBLK. R3 J CREATE A NEW SWAP FILE 
BCS 9* ;BR IF SOME ERROR ON OPEN 

Swap file has been created. 

Write to last block to reserve full space in file then close 

and reopen the channel using a . lookup. 

DEC R3 i GET # OF LAST BLOCK IN FILE 

.WRITW #AREA, #1,#TSINIT, #256. ,R3 ; WRITE TO LAST BLOCK IN FILE 

INC R3 ; GET BACK # BLOCKS IN FILE 

.CLOSE #1 i CLOSE FILE WE CREATED 

BR 4* ; NOW GO REOPEN USING A .LOOKUP 

Swap file has been successfully opened using a . lookup. 
Now copy channel status to TSX swap channel. 

POINT TO SWAP CHANNEL BLOCK 

GET DEVICE NAME 

SET UP SWAP CHANNEL INFO 

Release the RT-11 device handler 

. RELEAS #SWDBLK ; Release RT-11 device handler 

Finished 



3*: 



MOV 


#SWPCHN, RO 


MOV 


SWDBLK, R2 


CALL 


SETCHN 



MOV 
MOV 
MOV 
RETURN 



(SP)+. R3 
<SP)+, R2 
(SP)+, Rl 



Error; Cannot open swap file 

9*: .PRINT #TSXHD i PRINT ERROR MESSAGE 

.PRINT #BADOPN 
CALL SPNEED ; Print info about number of blocks needed 

Error: Invalid device specification. 



11*: MOV RO, Rl 

.PRINT #TSXHD 

.PRINT #BADOPN 

CALL BADDEV 



i Save device name 
/Print error message 



;Print invalid device specification 
Error: Number of contiguous blocks required. 



SPNEED: .PRINT #CONSPC 

MOV R3, RO 

CALL PRTDEC 

.PRINT #CRLF 

JMP INISTP 

i Bad file specification. 



;Print contiquous blocks needed 
i GET # BLOCKS NEEDED FOR FILE 
; DISPLAY # BLOCKS NEEDED 

J ABORT INITIALIZATION 



i 



I 
I 
I 
< 
i 

< 
t 
( 

i 

€ 
€ 

I 

i 
I 
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i 
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\ 
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010170 
010176 
0102U0 
010204 



BADDEV: 



010100 
004/J/ 



Ud^OVd 



000137 004250 



. PRINT 
MOV 
CALL 
. PRINT 
JMP 



#CFHMSG 

Rl.RO 

PRTR50 

#CRLF 

INISTP 



iPrint invalid device specification 

J Get the radSO device name 

i Print radSO device name 

; Print carriage return/line feed 

iAbort initialization 



TSINIT — TSX startup initializ 
OPNRSF — Open PLAS region swap 
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file 



1 

2 
3 

A 

5 

6 

7 

8 

9 
iO 

11 010216 
12 
13 
14 
15 

16 010220 

17 010224 
IS 010226 
19 010232 
20 



010234 
010240 
010244 

26 010246 

27 

28 



. SBTTL OPNRSF 



Open PLAS region swap file 



010346 



25 



105737 
001513 
005737 
001510 



013700 
004737 
103515 
013703 



OOOOOOG 
OOOOOOG 



OOOOOOG 
025176' 

OOOOOOG 



30 010252 

31 010272 
32 

33 
34 
35 

36 010274 

37 010300 
38 

39 
40 
41 

42 010302 

43 010310 
44 

45 
46 

47 010330 

48 010356 
49 

50 
51 
52 
53 

54 010360 

55 010362 

56 010420 

57 010426 



103416 



020037 
001453 



OOOOOOG 



103440 



005303 



000711 



OPNRSF is called to open the suiap file used for PLAS regions. 

Inputs: 
R5 = Address of base of free memory area. 

Outputs: 
SEGCHN = Set up to access swap file. 



OPNRSF: MOV 



R3, -<SP) 



Return if this is a non-swapping system or if region swap file is 
not wanted. 



TSTB 
BEQ 
TST 
BEQ 



VSWPFL 
9* 

VPLAS 
9* 



ils this a non— swapping system? 
; Br if yes 

> Is a PLAS swap file wanted? 
i Br if not 



Load RT-li device handler for swap device 



MOV 
CALL 
BCS 
MOV 



RSFBLK, RO 
RTFTCH 
11* 
VPLAS> R3 



i Get name of device 

/Try to fetch the RT-11 device handler 

iBr if error on handler fetch 

i Get # blocks in PLAS swap file 



See if PLAS swap file already exists on disk 



4*: 



.LOOKUP #AREA, #1,#RSFBLK ; Try to find existing PLAS swap file 
J^CS 2* iBr if file does not now exist 



PLAS swap file exists. 

See if it is the correct size. 



CMP 
BEQ 



RO, VPLAS 
3* 



; Is swap file of the correct size? 
j Br if yes 



?*: 



Old PLAS swap file is not of correct size. 
Delete it and open a new swap file. 

.CLOSE #1 i Close and delete the old file 

.DELETE #AREA,#1, #RSFBLKi Delete the old file 

Create new swap file 

ENTER #AREA,#1,#RSFBLK, VPLAS ; Create a new PLAS swap file 
BCS 10* ; Br if cannot create new file 

New swap file has been created. 

Write to last block to reserve full file size 

and then close and reopen with a lookup. 

DEC R3 iGet # of last block in file 

. WRITW #AREA, #1, ttTSINIT, #256. , R3 

. CLOSE #1 

BR 4* i Go back and lookup file 



TSINIT - 


■- TSX s 


tartup initializ 


OPNRSF - 


-- Open 


PL. AS rerj 


ion swap 


58 








59 








60 








61 








62 


010430 


012700 


OOOOOOG 


63 


010434 


013703 


OOOOOOG 


64 


010440 


004737 


024616' 


65 








66 








67 








68 


010444 






69 








70 








71 








72 


010454 


012603 




73 


010456 


000207 




74 








75 








76 








77 


010460 






78 


010466 






79 


010474 


004737 


010142' 


80 








81 








82 








S3 


010500 


010001 




84 


010502 






85 


010510 






86 


010516 


004737 


010170' 



Swap file has been successfully opened using lookup. 
Copy channel status to TSX channel block. 



3$: MOV #SEGCHN, RO 
MOV RSFBLK, R3 
CALL SETCHN 



i Point to TSX PLAS swap channel 

; Get device name 

/Set up TSX channel block 



Release the RT-11 device handler 

. RELEAS #RSFBLK ; Release RT-11 device handler 

Finished 

9*; MOV (SP)+, R3 
RETURN 



Error 



Cannot open PLAS swap file 



10*; .PRINT #TSXHD 
. PRINT #RSFERR 
CALL SPNEED 



i Print error prefix 

.; Print error message 

J Print information about amt of space needed 



Error: Invalid device specification. 



11«: MOV RO, Rl 

. PRINT #TSXHD 

.PRINT #RSFERR 

CALL BADDEV 



; Save device name 

; Print error message 

iPrint invalid device specification 



TSINIT — 
SPLINI — 

1 

2 

3 

4 

5 

6 

7 01 

S 01 

9 01 
10 01 
11 
12 
13 

14 01 

15 01 

16 01 

17 01 

18 01 
19 

20 
21 
22 
23 
24 
25 
26 
27 

28 01 

29 01 
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0522 
0526 
0530 
0532 



0534 
0536 
0540 
0542 
0544 



01 
01 
01 
01 
01 
01 



30 01 

31 01 

32 01 

33 01 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 

43 01 

44 01 

45 01 

46 01 

47 01 

48 01 

49 01 

50 01 

51 01 
52 

53 
54 
55 
56 
57 01 



0546 
0552 
0556 
0562 
0566 
0572 
0574 
0600 
0602 
0606 
0610 
0612 
0614 
0620 
0622 
0624 
0630 
0634 
0636 
0642 
0644 
0650 
0652 
0656 
0660 
0662 
0666 
0672 
0674 
0700 



005727 OOOOOOG 

001401 

000401 

000207 



010146 
010246 
010346 
010446 
010546 



105037 
012701 
012703 
012704 
004737 
011302 
010261 
010100 
062700 
112420 
112420 
112420 
020227 
001451 
010200 
004737 
010061 
010200 
004737 
103406 
004737 
103414 
105237 
000432 
010100 
062700 
004737 
103403 
105237 
000421 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
011574' 

OOOOOOG 

OOOOOOG 



OOOOOOG 

011476' 
OOOOOOG 

011372' 

011306' 

OOOOOOG 



OOOOOOG 
024530' 

OOOOOOG 



SBTTL SPLINI 



Initialize spooling system 



SPLINI performs the initialization of the spooling system. 
Inputs: 
R5 = Current base of free memory arBa. 



SPLINI: TST #SPLND 

BEQ 13* 

BR 10* 

13*: RETURN 



> Are there any spooled devices? 

i Br if not 

/Initialize the spooled devices 



There are some spooled devices 



10*: 



MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 



RJ 



<SP) 



R3, -<SP) 
R4, -(SP> 
R5, -(SP) 



Open each spooled device 



2*: 



14*: 



CLRB 


NSPLDV 


MOV 


#SDCB,R1 


MOV 


#SPLDEV. R3 


MOV 


#SPLANM, R4 


CALL 


FORCEO 


MOV 


(R3),R2 


MOV 


R2, SDNAME<R1> 


MOV 


R1>R0 


ADD 


#SDANAM, RO 


MOVE 


(R4)+, <R0)+ 


MOVE 


(R4)+, (R0)+- 


MOVB 


(R4)+, <R0)+ 


CMP 


R2, #DMYDEV 


BEQ 


1* 


MOV 


R2, RO 


CALL 


CVTDVU 


MOV 


RO, SDDVU<R1) 


MOV 


R2, RO 


CALL 


CHKCLD 


BCS 


14* 


CALL 


SPLCLD 


BCS 


3* 


INCB 


NSPLDV 


BR 


1* 


MOV 


R1,R0 


ADD 


#SDCHAN, RO 


CALL 


OPNCHN 


BCS 


3* 


INCB 


NSPLDV 


BR 


1* 



IN IT COUNT OF # ACTUAL SPOOLED DEVICES 

POINT TO 1ST SDCB 

POINT TO TABLE OF RAD50 DEV NAMES 

POINT TO TABLE OF ASCII DEV NAMES 

FORCE UNIDENTIFIED UNIT #S TO 

GET RAD50 NAME OF SPOOLED DEVICE 

SET NAME IN SDCB 

GET ADDRESS OF SDCB 

POINT TO CELL FOR ASCII NAME 

MOVE IN ASCII DEVICE NAME 



Is this a dummy entry for later patching? 

Br if yes — Ignore it 

Get name to RO 

Convert name to device # and unit # 

Store device # and unit # in SDCB 

Get device name 

See if this is a CL device? 

Br if not 

Set up for spooling to CL device 

Br if invalid unit 

Count # of actual spooled devices 

Process next device 

Get address of SDCB 

Point to channel block within SDCB 

Set TSX-Plus channel block open to device 

Br if did not recognize device 

Count # actual spooled devices 

GO PROCESS NEXT DEVICE 



Error on opening spooled device 

Determine if lue should print an error message or simply 

mark the spooled device as unavailable. 



0702 012761 OOOOOOG OOOOOOG 3*: 



MOV 



#DMYDEV, SDNAME<Rl)i SAY THIS DEVICE IS NOT SPOOLED 



I 

€ 

f 

I 

€ 

I 

€ 

€ 

C 

€ 

< 

i 

€ 

€ 

i 
i 
i 
i 
i 
i 



TSINIT " 


-~ TSX s 


tartup initializ 


SPLINI - 


— Initialize sp 


ooling 5 


58 


010710 


105737 


OOOOOOG 


59 


010714 


001413 




60 


010716 






&1 


O 10724 






62 


010732 


010200 




63 


010734 


004737 


025502' 


64 


010740 


000137 


004250 ' 


65 








66 








67 








68 


010744 


062701 


OOOOOOG 


69 


010750 


005723 




70 


010752 


020327 


OOOOOOG 


71 


010756 


103703 




72 








73 








74 








75 


010760 


105737 


OOOOOOG 


76 


010764 


001521 




77 


010766 


013700 


OOOOOOG 


70 


010772 


004737 


025176' 


79 


010776 


103532 




SO 


011000 


013702 


OOOOOOG 


81 


011004 


005202 




82 








83 








84 








85 


011006 






86 


011026 


103415 




87 


011030 


020002 




88 


011032 


001453 




89 


011034 






90 


011042 






91 








92 








93 








94 


011062 






95 


011106 


103456 




96 








97 


OllUO 


010203 




98 


011112 


005303 




99 


011114 






100 








101 


011152 






102 


011160 


000712 




103 








104 








105 








106 








107 


011162 


012700 


OOOOOOG 


108 


011166 


013702 


OOOOOOG 


109 


011172 


004737 


024616' 


110 


011176 






111 








112 








113 








114 


011206 


113703 


OOOOOOG 
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1*: 



TSTB VINABT 

BEQ 1* 

.PRINT #TSXHD 

.PRINT #BDSPOP 

MOV R2, RO 

CALL PRTR50 

JMP INISTP 

Process next spooled device 

ADD #SDCBSZ,R1 

TST <R3)+ 

CMP R3, #SPLDVN 

BLO 2* 

Open the spool file 



TSTB 


NSPLDV 




BEQ 


12* 




MOV 


SPLBLK, 


RO 


CALL 


RTFTCH 




BCS 


11* 




MOV 


NSPLBL, 


R2 


INC 


R2 





ABORT OR CONTINUE ON ERRORS? 

BR TO IGNORE DEVICE AND CONTINUE INIT 

PRINT ERROR MESSAGE 

GET RAD50 DEVICE NAME 
PRINT DEVICE NAME 
ABORT INITIALIZATION 



POINT TO NEXT SDCB 
POINT TO NEXT DEVICE NAME 
OPENED ALL SPOOLED DEVICES? 
BR IF MORE TO DO 



ARE THERE ANY ACTUAL SPOOLED DEVICES? 

BR IF THERE ARE NO ACTUAL SPOOLED DEVICES 

Get name of device for spool file 

Fetch the RT-11 device handler 

Br if cannot fetch handler 

GET # BLOCKS TO ALLOCATE FOR FILE 

Add 1 extra block 



See if spool file already exists 



5*: 



. LOOKUP #AREA, #1, #SPLBLK 

BCS 6* 

CMP RO, R2 

BEG 7* 

. CLOSE #1 

. DELETE #AREA, #1, #SPLBLK 

Open new spool file 



SEE IF SPOOL FILE ALREADY EXISTS 

BR IF IT DOES NOT EXIST 

IS IT THE RIGHT SIZE? 

BR IF YES 

IT EXISTS BUT IS OF WRONG SIZE 

DELETE CURRENT FILE AND OPEN NEW ONE 



6*: .ENTER #AREA. #1, #SPLBLK, R2; CREATE A NEW SPOOL FILE 
BCS 8* i BR IF ERROR ON ENTER 

i Write to last block in file to reserve full file space 
MOV R2, R3 ;Get # of blocks in file 

DEC R3 iOet # of last block in file 

. WRITW #AREA, #1, #TSINIT, #256. , R3 

i Now close and reopen using a lookup 

.CLOSE #1 ; CLOSE SPOOL FILE 

BR 5* } GO BACK AND REOPEN USING LOOKUP 

Spool file has been successfully opened with a lookup. 
Save the channel status. 



7*: 



MOV #SPLCHN, RO 
MOV SPLBLK, R 2 
CALL SETCHN 
. RELEAS #SPLBLK 



SAVE CHANNEL STATUS HERE 

GET DEVICE NAME 

SAVE CHANNEL STATUS 

Release the RT-11 device handler 



Set number of free public blocks in spool file 

MOVE NSPLDV, R3 ; Get # spooled devices 



TSINIT - 
SPLINI • 

115 
116 
117 
118 
119 
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011212 
011216 
011220 
0112i.'4 



121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 



011230 
011232 
011234 
011236 
011240 
011242 



011244 
011252 
011260 



011264 
011266 
011274 
011302 



070327 OOOOOOG 

005403 

063703 OOOOOOG 

Ol U33/ UU0UOO« 



012605 
012604 
012603 



012601 
000207 



12*: 



MUL 


#PVSPBL, R3 


NEG 


R3 


ADD 


NSPLBL, R3 


MOV 


R3, NFRESB 


Finished 




MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+,Rl 


RETURN 





; Times number of private blocks per dev 

i Get # public spool blocks 
jThis is number of public free spool blocks 



000137 004250' 



010001 



004737 010170' 



9*: 

i Error: Cannot open spool file. 

i 

8*: .PRINT #TSXHD ; PRINT ERROR MESSAGE 

-PRINT #BOSF 
JMP INISTP ; ABORT INITIALIZATION 

i 

i Error: Invalid device specification. 



11*: MOV RO, Rl 

. PRINT #TSXHD 

.PRINT #BOSF 

CALL BADDEV 



; Save device name 
i Print error message 

iPrint invalid device specification 






f 

I 

i 

I 

• c 

i i 

( 

€ 

€ 

K 
K 
K 
C 
1 
1 
( 



TSINIT - 
SPLCLD - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
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— Set up spooling to a CL device 



. SBTTL SPLCLD 



Set up spooling to a CL device 



011306 010546 



011310 010005 

011312 020527 0000000 

011316 103022 



011320 005061 OOOOOOC 

011324 020527 000007 

011330 101405 

011332 162705 000010 

011336 013700 OOOOOOG 

011342 000402 

011344 013700 OOOOOOG 

011350 010061 OOOOOOC 

011354 110561 OOOOOOC 



011360 000241 
011362 000401 



011364 000261 



011366 012605 
011370 000207 



SPLCLD is called to set up a spool device control block when 
spooling is being directed to a Communication Line (CL) device. 

Inputs: 
RO = CL unit number 
Rl = Address of SDCB 

Outputs: 
C-flag set =-> Invalid CL unit 

SPLCLD: MOV R5, -<SP) 

Make sure CL unit number is valie 

; Get CL unit number 

; Is this a valid unit # 

j Br if inval id 

Set up channel control block in SDCB 

CLR SDCHAN+C. SBLK<Rl>i Starting block # = 

CMP R5, #7 ; Is this a CL or CI unit? 

BLOS 1* iBr if CL unit 

SUB #8. , R5 ; Remove CI unit # bias 

MOV C1DEVX,R0 > Get CI device index number 

BR 2* 

MOV CLDEVX.RO i Get CL device index number 

MOV RO, SDCHAN+C. CSW<Rl)i Set device index number 

MOVB R5, SDCHAN+C. DEVQCRl); Set unit # 



MOV 


R0>R5 


CMP 


R5, #CLTOTL 


BHIS 


8* 



1$: 
2*: 



We successfully set up a CL unit 

; Signal success on error 



CLC 
BR 



9* 



We cannot open this CL unit 

8$: SEC 

Fini shed 

9*: MOV <SP)+, R5 
RETURN 



Signal error 



1 

€ 

I 
€ 
I 
I 
i 
€ 
I 
< 

€ 
€ 

i 

4 
I 
4 

i 



TSINIT — TSX startup 


initialia 


CHKCLD — See ] 

1 
2 
3 
4 


if a device name 






5 






6 






7 






8 






9 






10 






11 






12 






13 011372 






14 






15 






16 






17 011372 


020037 


000202 ' 


IS 011376 


001411 




19 011400 


020037 


000204 ' 


20 011404 


103432 




21 011406 


020037 


000206 ' 


22 011412 


101005 




23 011414 


163700 


000204 ' 


24 011420 


000422 




25 011422 


005000 




26 011424 


000420 




27 






28 






29 






30 011426 


020037 


000210' 


31 011432 


001413 




32 011434 


020037 


000212' 


33 011440 


103414 




34 011442 


020037 


000214' 


35 011446 


101011 




36 011450 


163700 


000212' 


37 011454 


062700 


000010 


38 011460 


000402 




39 011462 


012700 


000010 


40 






41 






42 






43 011466 


000241 




44 011470 


000401 




45 






46 






47 






48 011472 


000261 




49 






50 






51 






52 011474 


000207 
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. or CI unit 

. SBTTL CHKCLD — See if a device name is a CL or CI unit 

Determine if a radSO device and unit name is a CL or CI device. 

Inputs: 
RO = Rad50 device spec 

Outputs: 
C-flag set ==> Not a CL or CI unit 
C~flag cleared ==> This is a CL or CI unit 
RO = CL unit number (0--15) 

CHKCLD: 



Is name "CL"? 

Br if yes 

Is name in the range CLO to CL7? 

Br if not 



i See 


if this 


is a CL uri 




CMP 


RO, R50CL 




BEO 


1* 




CMP 


RO, R50CL0 




BLO 


8* 




CMP 


RO, R50CL7 




BHI 


2* 




SUB 


R50CL0, RO 




BR 


7* 


1*: 


CLR 


RO 




BR 


7* 



2*: 



3$: 



See if this is a CI unit 

CMP RO, R50C1 

BEQ 3* 

CMP RO, R50C10 

BLO 8* 

CMP RO, R50C17 

BHI 8* 

SUB R50C10, RO 

ADD #8. , RO 

BR 7* 

MOV #8. , RO 



This is a CL or CI unit 



7*: 



CLC 
BR 



9* 



This is not a CL or CI unit 
8$: SEC 

Finished 
9*: RETURN 



j Get CL unit number 
; CL = CLO 



; Is name "CI "7' 

i Br if yes 

; Is name in the range CIO to C17? 

; Br if not 



i Get unit number 

;Bias by 8 for Ci units 

; CI = CL8 



> Signal success on return 



; Signal failure on return 



c 



< 

i 

c 

i 

I* 

c 

i 
i 

1 i 
i 
i 
< 
i 
I 
i 
< 
* 

i 
i 



TSINIT - 


— TSX s 


tartup initializ 


CVTDVU - 


— Convert device name t 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


011476 


010246 




15 


011500 


010346 




16 








17 








18 








19 


011502 


010003 




20 


011504 


005002 




21 


011506 


071227 


000050 


22 


011512 


005703 




23 


011514 


001402 




24 


011516 


162703 


000036 


25 


011522 


010300 




26 


011524 


000300 




27 








28 








29 








30 


011526 


070227 


000050 


31 


011532 


013702 


OOOOOOG 


32 


011536 


020362 


OOOOOOG 


33 


011542 


001407 




34 


011544 


162702 


000002 


35 


011550 


002372 




36 








37 








38 








39 


011552 


012700 


177777 


40 


011556 


000261 




41 


011560 


000402 




42 








43 








44 








45 


011562 


050200 




46 


011564 


000241 




47 








48 








49 








50 


011566 


012603 




51 


011570 


012602 




52 


011572 


000207 
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and unit # 

. SBTTL CVTDVU — Convert device name to dev index and unit # 

CVTDVU is called to convert a RAD50 device name into the corresponding 
device index number and unit number. 

Inputs: 
RO = RAD50 device name. 

Outputs: 
C-flag cleared ==> Conversion successful. 
C-flag set ==> Unable to find device name in tables. 
RO = Device index number < 1 ouj byte)» device unit number (high byte). 



CVTDVU: MOV 
MOV 



R2, -<SP) 
R3, -<SP> 



Split the unit number off of the full device name 



I*: 



MOV 


RO, R3 


CLR 


R2 


DIV 


#50, R2 


TST 


R3 


GEO 


1* 


SUB 


#36, R3 


MOV 


R3, RO 


SWAB 


RO 



Get full device name 

Set up for divide 

Split name and unit <RO=name, Rl=unit) 

Was a unit number specified? 

Br if not 

Convert unit number to binary value 

Get unit number 

Position to high-order byte 



Look up the device name to get the device index 



>*: 



MUL 


#50, R2 


MOV 


NUMDEV, R2 


CMP 


R3, PNAME<R2) 


BEG 


3* 


SUB 


#2, R2 


BGE 


2* 



; Now get the device name without unit number 

j Get index number of last device 

i Search for device in name table 

j Br if found it 

i Try next device 

; Loop if more to check 



Error, cannot find device name in tables 



MOV 



5EC 



#-l,RO 
C 
BR 9* 

Found the device in the tables 



; Set device # = unit # = -1 
i Signal error on return 



3*: 



9*: 



BIS 


R2, RO 


CLC 




Finished 




MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





j Combine device # and unit # 
i Signal success on return 



i 



\ 



i 
i 
( 
i 
i 

i 
i 
i 
i 
I 
€ 
€ 

i 

i 
i 
t 
i 
i 
i 
i 
I 



TSINIT — 
FORCED — 

1 

2 

3 

4 

5 

6 

7 

S 01 

9 01 

10 01 

11 01 

12 01 

13 01 

14 01 

15 01 

16 01 

17 01 
IS 01 
19 01 

01 
01 
01 
01 

24 01 

25 01 

26 01 

27 01 
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Force a 2-char dev name to unit 



20 
21 
22 
23 



1574 
1576 
1600 
1602 
1604 
1606 
1612 
1614 
1616 
1620 
1622 
1626 
1630 
1632 
1634 
1636 
1642 
1644 
1646 
1650 



. SBTTL FORCED ~- Force a 2-char dev name to unit O 
Inputs: R3 points to a RAD50 device name 



Outputs: If 
blanki 



010346 
010446 
010546 
011305 
005004 
071427 
005705 
001012 
010405 
005004 
071427 
005704 
001404 
005705 
001402 
062713 
012605 
012604 
012603 
000207 



FOR CEO: 



000050 



000050 



000036 



9*: 



MOV 
MOV 
MOV 
MOV 
CLR 
DIV 
TST 
BNE 
MOV 
CLR 
DIV 
TST 
BEQ 
TST 
BEQ 
ADD 
MOV 
MOV 
MOV 
RETURN 



the 3rd char of the device name pointed to by R3 is 
then it is changed to 



R3, -(SP) 

R4i -(SP) 

R5, -(SP) 

(R3),R5 

R4 

#50, R4 

R5 

9* 

R4, R5 

R4 

#50, R4 

R4 



9* 

R5 

9* 

#'^R 0, (R3) 

(SP)+, R5 

(SP)+, R4 

(SP)+, R3 



MOVE CURRENT DEV NAME TO R5 

SET UP FOR DIVIDE 

SEPARATE INTO NAME AND UNIT 

WAS 3RD CHAR BLANK? 

RETURN IF NOT 

GET HIGH 2 CHARS 

SET UP FOR ANOTHER DIVIDE 

SEPARATE 1 & 2 CHARS 

WAS CHAR 1 BLANK? 

EMPTY OR INVALID DEV NAME! 

WAS CHAR 2 BLANK? 

1-CHAR DEV NAME SHOULD BE INVALID??? 

FORCE TO UNIT 



\ 



i 
I 

€ 

i 
I 
f 

4 
I 

i 
i 

€ 
C 

< 
i 
i 
I 
4 
i 
I 
I 



TSINIT - 


- TSX s 


tartup initializ 


ALOCBF - 

1 
2 
3 


- Alloc 


ate bu^-f 


er space 








4 








5 








6 








7 








e 








9 








10 








11 








12 








13 








14 


011652 


010146 




15 








16 








17 








IS 


011654 


010537 


OOOOOOG 


19 


011660 


062705 


OOOOOOC 


20 








21 








22 








23 


011664 


010537 


OOOOOOG 


24 


011670 


013701 


OOOOOOG 


25 


011674 


020137 


OOOOOOG 


26 


011700 


103002 




27 


011702 


013701 


OOOOOOG 


28 


011706 


070127 


OOOOOOG 


29 


011712 


060105 




30 


011714 


010537 


OOOOOOG 


31 








32 








33 








34 


011720 


012700 


OOOOOOC 


35 


011724 


003404 




36 


011726 


010537 


OOOOOOG 


37 


011732 


062705 


OOOOOOC 


38 








39 








40 








41 


011736 


013701 


OOOOOOG 


42 


011742 


001405 




43 


011744 


010537 


OOOOOOG 


44 


011750 


070127 


OOOOOOG 


45 


011754 


060105 




46 








47 








48 








49 


011756 


010537 


OOOOOOG 


50 


011762 


062705 


OOOOOOC 


51 








52 








53 








54 


011766 


010537 


OOOOOOG 


55 


011772 


013701 


OOOOOOG 


56 


011776 


062701 


OOOOOOG 


57 


012002 


070127 


OOOOOOG 
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. SBTTL ALOCBF — Allocate buffer space 



ALOCBF is called to allocate space for buffers. The allocated space 
is not initialized but simply reserved. 

Inputs: 
R5 = Start of area to allocate buffer space in. 

Outputs: 
R5 == Address beyond end of buffer area. 
CHNBAS = Address of base of I/O channel space. 
CHNEND = Address past end of I/O channel space. 

ALOCBF: MOV R1,-(SP> 

Assign space for I/O queue elements. 

MOV R5, FREIOQ ; START OF I/O QUEUE SPACE 

ADD #I0QSIZ#NUMI0Q>R5; RESERVE SPACE FOR I/O QUEUE ELEMENTS 

Assign space for shared PLAS region control blocks 

Start of area for RGB's 
Get number of RGB's wanted 
Must have one for each display window 
Br if ok 

Force one for each window 
13*: MUL #RC**SZ^R1 ; Multiply by size of each block 

Allocate space for RCB's 
Address of end of region 

Assign space for fork blocks 

MOV #<NUMFRK-FRKGEN>i RO J Get # fork blocks to allocate 

BLE 11* i Br if none to allocate 

MOV R5, FRKINI ; Set pointer to start of area 

ADD #«NUMFRK-FRKGEN>#FQ**SZ>, R5 /Reserve space for fork blocks 

Assign space for job monitoring control blocks 



MOV 


R5, SHRRCB 


MOV 


VNGR,R1 


CMP 


Rl, VMXWIN 


BHIS 


13* 


MOV 


VMXWIN, Rl 


MUL 


#RC**SZ,R1 


ADD 


R1,R5 


MOV 


R5, SHRRCN 



11*: MOV VMXMON, Rl 

BEQ 10* 

MOV R5, MONFQH 

MUL #JM**SZ,R1 

ADD R1,R5 



i Any job monitoring blocks wanted? 

; Br if not 

i Start of job monitoring control blocks 

/Compute space needed for control blocks 

/Allocate the space 



Allocate space for system message buffers. 

10*: MOV R5, SNMSHD > HEAD OF SYSTEM MESSAGE BUFFER AREA 
ADD #<NMSNMB*SB**SZ>/ R5/ RESERVE ROOM FOR MESSAGE BUFFERS 

Allocate space for INSTALLed program table 



MOV R5/ INSTBL 

MOV VNUIP/Rl 

ADD #NSIP,R1 

MUL #II**SZ/R1 



Base of table 

# slots for user installed programs 
Add # slots for system programs 
Multiply by size of each slot 



INIT - 


— TSX s 


tartup initializ 


HACRO V05. ( 


OCBF ■ 


— Allocate buff 


er space 




58 


012006 


060105 






59 


012010 


010537 


0000000 




60 










61 










62 










63 


012014 


010537 


OOOOOOG 




64 


012020 


012701 


OOOOOOG 




65 


012024 


070137 


OOOOOOG 




66 


012030 


060105 






67 


012032 


010537 


OOOOOOG 




68 










69 










70 










71 


012036 


005737 


OOOOOOG 




72 


012042 


001404 






73 


012044 


010537 


OOOOOOG 




74 


012050 


062705 


OOOOOOC 




75 










76 










77 










78 


012054 


013701 


OOOOOOG 


12^ 


79 


012060 


001407 






SO 


012062 


070127 


OOOOOOG 




81 


012066 


010537 


OOOOOOG 




82 


012072 


060105 






83 


012074 


010537 


OOOOOOG 




84 








; 


85 










86 










87 










88 










89 


012100 


012701 


000002 


1*: 


90 


012104 


020127 


OOOOOOG 


2$: 


91 


012110 


101007 






92 


012112 


010561 


OOOOOOG 




93 


012116 


062705 


000020 




94 


012122 


062701 


000002 




95 


012126 


000766 






96 








i 


97 








> 


98 








i 


99 


012130 


012701 


000002 


5*: 


100 


012134 


020127 


OOOOOOG 


6*: 


101 


012140 


101403 






102 


012142 


020127 


OOOOOOG 




103 


012146 


103422 






104 


012150 


026127 


OOOOOOG 


OOOOOOG 3*: 


105 


012156 


001404 






106 


012160 


026127 


OOOOOOG 


OOOOOOG 


107 


012166 


001012 






108 


012170 


010561 


OOOOOOG 


8$: 


109 


012174 


010561 


OOOOOOG 




110 


012200 


062705 


OOOOOOG 




111 


012204 


010561 


OOOOOOG 




112 


012210 


062705 


OOOOOOG 




113 


012214 


062701 


000002 


7*: 


114 


012220 


020127 


OOOOOOG 
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ADD 
MOV 



R1,R5 

R5, INSTBN 



Allocate space for table 

Pointer past end of INSTALL table 



Allocate space for device mount entries 



MOV R5, CSHDEV 

MOV #CD**SZ,R1 

MUL VMXCSH. Rl 

ADD R1,R5 

MOV R5, CSHDVN 



j Point to start of area 

J Get size of each entry 

/Multiply by number of entries 

/Reserve space for table 

i Save pointer past end of table 



Allocate space for data cache control blocks 

TST CSHALC ;Is data caching wanted? 

BEQ 12* J Br if not 

MOV R5, CCBHD i Head of free list area 

ADD #NUMCCB*CC**SZ, R5 ; Allocate space for control blocks 

Allocate space for spool file control blocks 



MOV NSPLFL, Rl 

BEQ 1* 

MUL #SFCBSZ,R1 

MOV R5, SFCB 

ADD R1,R5 

MOV R5, SFCBND 



i Get # spool file control blocks needed 

J Br if none needed 

i Compute space needed by control blocks 

; Base of control block area 

; Allocate space for control blocks 

i End of control block area 



Allocate space for a 16 byte vector for each multiplexer. 
This vector is used to map from the mux line number to the 
TSX -Plus logical line number. 



MOV #2. Rl 

CMP R 1 , #LSTMX 

BHI 5* 

MOV R5, MXLNT<R1) 

ADD #16. ,R5 

ADD #2>R1 

BR 2* 



START WITH FIRST MUX 

HAVE WE DONE ALL MUX'S? 

BR IF YES 

SET ADDRESS OF START OF VECTOR 

RESERVE SPACE FOR VECTOR 

ADVANCE TO NEXT MUX 



Allocate buffers to hold characters for DMA transfers to DHil multiplexers 



MOV #2, Rl 

CMP R1,#LSTPL 

BLOS 3* i Br 

CMP R1,#FSTI0L ils 

BLO 7* i Br 

CMP LCDTYP<R1),#CDX*DH ; 

BEQ 8* i Br 

CMP LCDTYP(R1)>#CDX*VH } 

BNE 7* ; Br 

MOV R5, LDHB1B<R1> 

MOV R5, LDHBIP(RI) 

ADD #DHBFSZ. R5 

MOV R5. LDHB2B(R1) 

ADD #DHBFSZ,R5 

ADD #2, Rl 

CMP R 1 , #LSTHL 



Start with first line 

Is this a primary time-sharing line? 

if yes 

this a CL line? 

if not 

line connected 



Is 
if 
Is 
if 



th is 
yes 
this 
not 



to a DHll? 
line connected to a DHVll? 



Set address of start of buffer 

Initialize pointer into buffer 

Reserve space for buffer 

Set address of start of buffer 

Reserve space for buffer 

Get # of next line 

Have we checked all lines? 



i 



\ 



TSINIT - 


— TSX s 


tartup initializ 


ALOCBF - 


— Allocate buff 


er space 


115 


012224 


101743 




116 


012226 


005205 




117 


012230 


042705 


000001 


118 








119 








120 








121 


012234 


105737 


OOOOOOG 


122 


012240 


001415 




123 


012242 


013700 


OOOOOOG 


124 


012246 


006300 




125 


012250 


010537 


OOOOOOG 


126 


012254 


060005 




127 


012256 


010537 


OOOOOOG 


128 


012262 


060005 




129 


012264 


010537 


OOOOOOG 


130 


012270 


062705 


OOOOOOG 


131 








132 








133 








134 


012274 


010537 


OOOOOOG 


135 


012300 


062705 


001400 


136 








137 








138 








139 


012304 


010500 




140 


012306 


004737 


025312' 


141 








142 








143 








144 


012312 


012601 




145 


012314 


000207 
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BLOS 

INC 

BIC 



6* 
R5 
#1. R5 



; Br if not 

i Bound up to next word 



Allocate space for tables that keep track of space in swap file 

Is this a swapping system? 

Br if not 

Get # slots in swap file 

Allocate 2 bytes per slot 

Start of table with starting block #'5 

Allocate space 

Start of table with job #'s 

Allocate space 

Pointer to area with command packets 

Allocate space for swap command packets 

Allocate a 512-byte buffer to use to access job context blocks 



TSTB 


VSWPFL 


BEQ 


14* 


MOV 


VSWPSL, RO 


ASL 


RO 


MOV 


R5, SWPPOS 


ADD 


RO, R5 


MOV 


R5, SWPJOB 


ADD 


RO, R5 


MOV 


R5, SCPFHD 


ADD 


#NSCP*SP**S2, R5 



14*: 



MOV 
ADD 



R5, CXTBUF 
#1400, R5 



j Set address of buffer 

J Reserve space for the buffer 



Make sure TSX is not too big. 



MOV 


R5, RO 


CALL 


CHKMEM 


Finished 




MOV 


(SP)+,R1 


RETURN 





; GET CURRENT MEMORY ADDRESS 
i CHECK FOR SPACE OVERFLOW 



€ 



TSINIT - 


— TSX s 


tartup initializ 


ALCSLO - 

1 
2 

3 


— Allocate silo 


buffers 








4 








5 








6 








7 








B 








9 








10 








11 








12 


012316 


010146 




13 


012320 


010246 




14 








15 








16 








17 


012322 


012701 


0000000 


18 








19 








20 








21 


012326 


012702 


000040 


22 


012332 


020127 


OOOOOOG 


23 


012336 


101405 




24 


012340 


020127 


OOOOOOG 


25 


012344 


103463 




26 


012346 


012702 


000020 


27 








28 








29 








30 


012352 


016100 


OOOOOOG 


31 


012356 


001002 




32 


012360 


013700 


OOOOOOG 


33 


012364 


020027 


OOOOOOG 


34 


012370 


101402 




35 


012372 


012700 


OOOOOOG 


36 


012376 


020002 




37 


012400 


103001 




38 


012402 


010200 




39 


012404 


010061 


OOOOOOG 


40 








41 








42 








43 


012410 


010561 


OOOOOOG 


44 


012414 


010561 


OOOOOOG 


45 


012420 


010561 


OOOOOOG 


46 


012424 


010061 


OOOOOOG 


47 


012430 


060005 




48 


012432 


010561 


OOOOOOG 


49 








50 








51 








52 


012436 


006200 




53 


012440 


162700 


000002 


54 


012444 


116102 


OOOOOOG 


55 


012450 


001002 




56 


012452 


113702 


OOOOOOG 


57 


012456 


020200 
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. SBTTL ALCSLO — Allocate silo buffers for lines 

Allocate the silo buffers that are used to hold characters as they 
are received from serial lines. 

Inputs: 
R5 = Current pointer to start of free memory. 

Outputs: 
R5 = New pointer to start of free memory. 






ALCSLO: MOV 
MOV 



Rl, -(SP) 
R2. -(SP) 



1*: 



Begin loop to check each line 

MOV #LSTHL, Rl i Get index to last hardware line 

Only allocate silo buffers for real lines 

>Set minimum size for time-sharing lines 

J Is this a primary line? 

; Br if yes 

; Is this a CL line? 

; Br if not 

i Set minimum size for CL lines 



MOV 


#32. , R2 


CMP 


Rl, #LSTPL 


BLOS 


2* 


CMP 


Rl, #FSTIOL 


BLO 


9* 


MOV 


#16. , R2 



Determine how much space to allocate 



2*: 



8*: 



3*: 



4*: 



MOV 


LHIRBA(R1),R0 


BNE 


8* 


MOV 


VNCSLO, RO 


CMP 


RO, #MAXSLO 


BLOS 


3* 


MOV 


#MAXSLO, RO 


CMP 


RO, R2 


BHIS 


4* 


MOV 


R2, RO 


MOV 


RO, LHIRBA<R1> 



Allocate the space 



MOV 
MOV 
MOV 
MOV 
ADD 
MOV 



R5, LHIRBB<R1) 
R5, LHIRBP<R1 ) 
R5, LHIRBG(Rl) 
RO, LHIRBS(R1> 
RO, R5 
R5, LHIRBE(R1 ) 



Get requested size 

Br if a size was specified 

Use default value 

Constrain size to 255 bytes 

Br if ok 

Reduce size 

Compare with acceptable minimuin 

Br if ok 

Use minimum size allowed 

Set # bytes to be allocated for silo 



Set base address of buffer 

Init pointer where to store next char 

Init pointer where to get next char 

Set # free bytes in buffer 

Allocate space for buffer 

Set address beyond end of buffer 



5$: 



Set up control information about when to send XON and XOFF 

Get 1/2 of buffer size 

Minus two characters 

Get specified size for XOFF point 

Br if value specified 

Try default 

Is specified value ok? 



ASR 


RO 


SUB 


#2, RO 


MOVE 


LHIRBC<R1),R2 


BNE 


5* 


MOVE 


VNCXOF, R2 


CMP 


R2, RO 



i 
\ 



TSINIT - 


-- TSX s 


tartup initializ 


ALCSLO - 


— Allocate silo 


buffers 


58 


012460 


101401 




59 


012462 


010002 




60 


012464 


110261 


0000000 


61 


012470 


116102 


oooooiy 


62 


012474 


001002 




63 


012476 


113702 


OOOOOOG 


64 


012502 


020200 




65 


012504 


101401 




66 


012506 


010002 




67 


012510 


110261 


00000 10 


68 








69 








70 








71 


012514 


162701 


000002 


72 


012520 


003302 




73 








74 








75 








76 


012522 


005205 




77 


012524 


042705 


000001 


78 


012530 


012602 




79 


012532 


012601 




80 


012534 


000207 
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6«: 



7*: 



10*: 



9$: 



BLOS 


6* 


MOV 


RO, R2 


MOVE 


R2, LHIRBC<RJ) 


MOVE 


LHIRBC+1<R1),R2 


BNE 


7* 


MOVE 


VNCXON, R2 


CMP 


R2, RO 


BLOS 


10* 


MOV 


RO, R2 


MOVE 


R2, LHIREC+KRl) 



Do the next line 



SUB 


#2, Rl 


BGT 


1* 


Finished 




INC 


R5 


BIC 


#1,R5 


MOV 


<SP)+, R2 


MOV 


(SP>+,R1 


RETURN 





Br if yes 

No* use size/2-2 

Set # of chars when XOFF sent 

Get specified size for XON point 

Br if a value was specified 

Try default 

Is specified value ok? 

Br if ok 

No. use size/2~2 

Set # of chars when XON sent 



; Get next line index number 
iLoop if more to do 



; Force R5 to be even 



TSINIT -- 
AL13FX — 

1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 

12 01 

13 01 

14 01 
15 

16 
17 
18 

19 01 

20 01 

21 01 

22 01 

23 01 

24 01 

25 01 

26 01 

27 01 
2B 01 

29 01 

30 01 

31 01 

32 01 

33 01 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 

43 01 

44 01 

45 01 

46 01 

47 01 
48 
49 

50 
51 01 



TSX startup initial iz MACRO V05. 04 Thursday 17-Dec-87 00:39 
Allocate buffers in extended memory region 



Paqe 38 



2536 
2540 

2542 



2544 
2550 
2556 
2560 
2564 
2566 
2572 
2574 
2600 
2604 
2610 
2614 
2620 
2622 
2626 
2630 
2634 
2640 
2642 
2644 
2650 
2654 
2660 
2664 
2670 
2674 
2676 
2702 
2706 



52 01 

53 01 

54 01 

55 01 

56 01 

57 01 



2710 
2714 
2716 
2724 
2732 
2736 
2742 



010146 
010246 
010346 



012701 
032761 
001047 
020127 
103403 
020127 
101441 
010561 
012702 
010261 
016100 
010061 
060002 
010261 
010003 
062703 
072327 
060302 
060300 
010261 
066100 
066102 
010261 
062700 
072027 
060005 
062701 
020127 
101720 



005737 
001451 
013737 
013737 
010537 
012701 
070137 



. SBTTL ALBFX — Allocate buffers in extended memory region 

ALBFX is called to allocate space for buffers that are not constrained 
to fit in the 40Kb region that TSX-Plus occupies. 



Inputs: 
R5 = 64-Byte 



address of base of free memory region. 



Outputs: 
R5 = Address above top of buffers allocated. 



ALBFX: 



MOV 


R1,-<SP> 


MOV 


R2, -<SP) 


MOV 


R3, -(SP) 



000002 

OOOOOOG 0000000 3*: 

ooooooe 
ooooooe 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

000007 
177775 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000077 

177772 

000002 
OOOOOOG 



1*: 



2*: 



Allocate character buffers for all lines 

Note: Character buffer space will be accessed by mapping through PAR 6. 

GET 1ST JOB INDEX NUMBER 

IS THIS LINE INSTALLED? 

BR IF NOT — DON'T ALLOCATE ANY BUFFER SPACE 

IS THIS A DETACHED JOB LINE? 

BR IF NOT 

DETACHED JOB LINE? 

BR IF DETACHED JOB — DON'T ALLOCATE BUFFERS 

SET PHYSICAL MEMORY PAR OFFSET FOR BUFFER 

GET VIRTUAL MEMORY ADDRESS FOR BASE OF PAR6 

INPUT BUFFER STARTS AT BASE OF PAR6 REGION 

GET # BYTES FOR INPUT BUFFER 

SET # FREE BYTES IN INPUT BUFFER 

ADVANCE VIRTUAL ADDRESS 

POINTS PAST END OF INPUT BUFFER 

Get # bytes in input buffer 

Bound up to multiple of 8 

Get # bytes needed in activation-flag buffer 

Reserve space for activation-flag buffer 

Accumulate total buffer space 

POINTS TO START OF OUTPUT BUFFER AREA 

ACCUMULATE # BYTES IN BOTH BUFFERS 

ADVANCE VIRTUAL ADDRESS COUNTER 

SAVE ADDRESS OF END OF OUTPUT BUFFER 

BOUND UP TO MULTIPLE OF 64 BYTES 

CONVERT TO # 64-BYTE BLOCKS ALLOCATED 

ADVANCE PHYSICAL MEMORY PAR ADDRESS 

ADVANCE LINE NUMBER 

HAVE WE DONE ALL LINES YET? 

BR IF MORE TO DO 

Allocate space for shared file record locking data structures 



MOV 


#2, Rl 


BIT 


#*DEAD, LSW3<R1) 


BNE 


2* 


CMP 


R1,#FSTDL 


BLO 


1* 


CMP 


R1,#LSTDL 


BLOS 


2* 


MOV 


R5, LTTPAR<R1) 


MOV 


#VPAR6, R2 


MOV 


R2, LINBUF(R1 > 


MOV 


LINSIZ<R1),R0 


MOV 


RO, LINSPC(R1> 


ADD 


RO, R2 


MOV 


R2, LINEND(Rl) 


MOV 


RO, R3 


ADD 


#7, R3 


ASH 


#-3, R3 


ADD 


R3iR2 


ADD 


R3, RO 


MOV 


R2, L0TBUF<R1) 


ADD 


L0TSIZ(R1),R0 


ADD 


L0TSIZ<R1),R2 


MOV 


R2, L0TEND<R1) 


ADD 


#77, RO 


ASH 


#-6, RO 


ADD 


RO, R5 


ADD 


#2, Rl 


CMP 


R 1 , #LSTSL 


BLOS 


3* 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



TST VMXSF 

BEQ 5* 

MOV VNUMDC. NUMDCD 

MOV VMXSFC, NUMCDB 

MOV R5, LOKMEM 

MOV #FF**SZ,R1 

MUL VMXSF, Rl 



; Shared file support wanted? 

J Br if not 

; Set number of data cache blocks 

i Set number of free CDB's 

J Set phys address of base of area 

; Size of an FDB 

j Times number of FDB's 



TSINIT — 
ALBFX — 

58 

59 

60 

6i 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 
99 

100 
101 
102 
103 



TSX startup initializ MACRO V05. 04 
Allocate buffers in extended memori 



012746 
012752 
012756 
012760 
012764 
012770 
012772 
012776 
013002 
013004 
013010 
013014 
013020 
013022 
013026 
013032 
013036 



013040 
013044 
013046 
013052 
013054 
013060 
013064 
013070 
013072 
013076 



013100 
013104 
013106 
013112 
013116 
013122 



013124 
013126 
013130 
013132 



062701 
013703 
006303 
062703 
070337 
060301 
012703 
070337 
060301 
062701 
072127 
042701 
060105 
010537 
013701 
070127 
060105 



105737 
001415 
013701 
001412 
010561 
1 1 3703 
072327 
060305 
016101 
001366 



012701 
001407 
010537 
062701 
072127 
060105 



012603 
012602 
012601 
000207 



OOOOOOC 
OOOOOOG 

OOOOOOw 
OOOOOOG 

OOOOOOG 
OOOOOOG 

000100 
177772 
176000 

OOOOOOG 
OOOOOOG 
000010 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
000003 

OOOOOOG 



OOOOOOG 

OOOOOOG 

000077 

177772 



ursday 


17-Dec-87 08:39 


Page 38 


gion 






ADD 


#<NLINES«FW*$SZ> 


-Rl ; Sp 


MOV 


VMLBLK, R3 


;Max bl 


ASL 


R3 


■> Two by 


ADD 


#FC«LBN, R3 


;Add ba 


MUL 


VMXSFC, R3 


, Times 


ADD 


R3, Rl 


, Accumu 


MOV 


#DC**SZ, R3 


> Si ze 


MUL 


VNUMDC, R3 


Times 


ADD 


R3, Rl 


Reserv 


ADD 


#64. ,R1 


Bound 


ASH 


#-6, Rl 


Conver 


BIG 


#176000, Rl 


Clear 


ADD 


R1,R5 


Reserv 


MOV 


R5, LOKCSH 


Save p 


MOV 


VNUMDCRl 


# shar 


MUL 


#8. ,R1 


8 64-b 


ADD 


R1>R5 


Reserv 



5*: 



6$: 



7*: 



tace needed for wait blocks 
ocks a CDB may hold locked 
ites per entry 
ise size of a CDB 
number of shared file channels 
ilate space needed 
if a data cache descriptor 
number of data cache entries 
'e space for data cache descriptors 
up to 64 byte unit 
't to # 64 byte units 
sign extension 
'e space for data structures 
lointer to start of cache buffer area 
'ed-file data cache blocks wanted 
lyte blocks each <512 bytes each) 
'e space for data cache buffers 

Allocate space for mapped I/O buffers 

Are any mapped I/O buffers needed? 

Br if not 

Point to 1st mapped I/O control block 

Br if no more buffers needed 

Set address of base of buffer 

Get # blocks for buffer 

Convert to # 64-byte pages 

Allocate space for buffer 

Get address of next control block 

Loop if more to allocate 

Allocate space for performance monitor data buffer if it is wanted. 

DID USER GEN IN PERFORMANCE MONITOR FEATURE? 

BR IF NOT 

SET BASE ADDRESS OF PM BUFFER 

BOUND SIZE UP TO 64-BYTE MULTIPLE 

CONVERT TO # 64-BYTE BLOCKS 

ADVANCE FREE MEMORY POINTER 



TSTB 


MIOFLG 


BEQ 


7* 


MOV 


MIOBHD, Rl 


BEQ 


7* 


MOV 


R5, MI*SBP<R1) 


MOVB 


VMIOSZ, R3 


ASH 


#3, R3 


ADD 


R3, R5 


MOV 


MI*LNK(R1),R1 


BNE 


6$ 



9*: 



MOV 


#PMSIZE, Rl 


BEQ 


9* 


MOV 


R5, PMPAR 


ADD 


#77, Rl 


ASH 


#-6, Rl 


ADD 


R1,R5 


F-inished 




MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





I 

1 



i 
c 
c 
c 

i 



i 
i 
i 
i 
i 
i 



TSINIT - 
DPNKMN - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



TSX startup 
Open channel 
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to TSKMON 

. SBTTL OPNKMN — Open channel to TSKMON 



1 



013134 010246 



013136 
013156 



013160 
013164 



013230 
013234 

013240 
013244 
013250 
013254 
013256 
013260 
013262 
013266 
013272 



103517 



013702 00015c 



016200 
062700 
042700 
010037 

162700 
010037 
062700 
000241 
006000 
000300 
042700 
063700 
010037 



013276 016237 



013304 016237 



000050 
000003 
000001 
0000000 

0000000 
OOOOOOG 
000777 



177400 

OOOOOOG 

OOOOOOG 

000042 OOOOOOG 

000040 OOOOOOG 



013312 016237 000300 OOOOOOG 



OPNKMN is called to open an I/O channel to TSKMON SAV file and to 
set up information about TSKMON. 

Inputs: 
R5 = Address of base of free memory area 

Outputs: 
KMNCHN = Saved status of channel to use to access TSKMON SAV file. 
KMNTOP = Top of memory address for TSKMON. 
KMNHI = Top address of TSKMON - KMNBAS. 

KMNPGS = Number of 256-ujord memory pages needed for TSKMON & context area 
KMNSTK = Address of stack to use while TSKMON running. 
KMNSTR = Starting address of TSKMON. 

OPNKMN: MOV R2, -<SP) 

Lookup TSKMON file. 

.LOOKUP #AREA, #1,#KMNNAM i TRY TO FILE KMON SAV FILE 
BCS 9* i BR IF NOT THERE 

Read block of save file and extract some information. 

MOV WRKBUF, R2 ; Point to work buffer 
. READW #AREA>#1.R2, #256. ,#0 ; READ BLOCK OF SAV FILE 
Determine size of kmon 

MOV 50(R2),R0 J GET TOP ADDRESS OF KMON 
ADD #3, RO ; BOUND UP TO NEXT WORD 

BIG #1,R0 ; FORCE EVEN 

MOV RO, KMNTOP 
Determine number of 256-uiord memory pages needed while kmon running. 

i BASE ADDRESS OF KMON 

; TOP OF TSKMON - KMNBAS 

; BOUND UP TO PAGE SIZE 

i CVT TO # WORDS 
iCVT TO # PAGES 

i# PAGES NEEDED FOR JOB CONTEXT AREA 
i# 256-wd pages needed for kmon + context area 
Determine Kmon stack pointer. 

MOV 42<R2), KMNSTK ; INITIAL STACK POINTER FOR KMON 
Determine Kmon starting address. 

MOV 40(R2), KMNSTR ; STARTING ADDRESS 

Set up demo-system time limit 

<If this is a demo version of TSX-Plus, the number of minutes the system 
is to run before it crashes is stored in location 300 of TSKMON) 

MOV 300<R2),DTLX ; SET DEMO TIME-LIMIT 

Now save status of channel so we can do a reopen when we need kmon. 



SUB 


#KMNBAS, RO 


MOV 


RO, KMNHI 


ADD 


#511. ,R0 


CLC 




RDR 


RO 


SWAB 


RO 


BIC 


#•^0377, RO 


ADD 


CXTPAG, RO 


MOV 


RO, KMNPGS 



013320 012700 
013324 013702 



OOOOOOG 
000072 ' 



MOV #KMNCHN, RO 
MOV KMNNAM, R2 



i GET KMON CHANNEL SAVE AREA 
i GET KMON DEVICE NAME 



i 
I 
I 
i 

i 






i 
c 



i 
i 

i 
< 

i 
i 

i 
i 
i 

i 
i 
i 
i 
i 
i 
i 



TSINIT — TSX startup initializ MACRO 
DPNKMN — Open channel to TSKMON 

58 013330 004737 024616' 

59 

60 

61 

62 013334 

63 013354 

64 013356 

65 013362 

66 013366 
67 
68 
69 

70 013372 

71 013374 
72 
73 
74 
75 01 



103410 

012700 OOOOOOG 

013702 000102' 

004737 024616' 



012602 
000207 
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CALL SETCHN ; SAVE CHANNEL STATUS 

Lookup CCL. SAV and save channel status for it. 



LOOKUP SY: CCL. SAV 
BR IF CAN'T FIND CCL 
CHANNEL SAVE AREA 
DEVICE NAME 
SAVE CHANNEL STATUS 



10* 



. LOOKUP 


#AREA, #1,#CCLNAM 


BCS 


8* 


MOV 


#CCLSAV> RO 


MOV 


CCLNAM, R2 


CALL 


SETCHN 


Finished 




: MOV 


<SP)+, R2 


RETURN 





Error: We could not find SY: CCL. SAV 



3376 
3404 
3412 



8*: 



76 01 

77 01 
78 
79 
SO 

81 013416 

82 013424 

83 013432 



000137 004250' 



.PRINT #TSXHD 
.PRINT #NOCCL 
JMP INISTP 



i PRINT ERROR MESSAGE 
i ABORT INITIALIZATION 



000137 004250' 



Error: We could not locate TSKMON SAV file. 

9*: .PRINT #TSXHD i PRINT ERROR MESSAGE 
.PRINT #NOKMON 

JMP INISTP ; ABORT INITIALIZATION 



TSINIT 
CLINIT 



TSX startup initializ MACRO V05. 04 
Initialize CL handler 
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1 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



23 
24 
25 
26 
27 

28 

29 

30 

31 

32 
33 
34 
35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
48 
49 
50 

51 

52 

53 

54 
55 
56 
57 



13436 
13440 
13442 



13444 
13446 



13452 
13456 
13460 
13466 
13472 
13476 
13500 
13504 
13506 
13512 



13514 
13520 
13524 
13530 
13534 
13536 
13540 
13544 
13550 
13554 
13556 
13562 



13564 
13570 
13574 
13600 



010146 
010246 
010346 



005003 
012701 



016102 
001416 
012762 
010162 
005762 
001006 
005762 
001003 
005061 
000472 



010561 
010561 
010561 
012700 
005702 
001402 
016200 
010061 
010061 
060005 
010561 
060003 



010561 
005061 
062705 
062703 



OOOOOOC 



OOOOOOG 

0000000 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
00000 IG 
00000 IG 



. SBTTL CLINIT ■- Initialize CL handler 

Perform initialization for CL <Communi cation Line) handler 

Inputs: 
R5 = Address of start of free memory area. 

Outputs: 
R5 = Address of new start of free memory area. 



CLINIT: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -(BP) 
R3, -<SP) 



Initialize tables for each CL unit 

CLR R3 j Accumulate ring buffer sizes in R3 

MOV #2*<CLT0TL-~1>, Rli Get index # of last CL unit 

See if this CL unit is connected to hardware or is free to be 
connected later to a time-sharing line. 



OOOOOOG 



1*: MOV CL*LIX<R1),R2 

BEQ 5* 

MOV #*SXON. LSW10(R2) 

MOV R1,LCLUNT<R2) 

TST RSR(R2) 

ONE 5* 

TST LMXNUM<R2) 

BNE 5* 

CLR CL*EPS(R1) 

BR 4* 



Is this CL unit associated with a line? 

Br if not 

Send XON when we start the line 

Associate the CL unit with this line 

Does this unit have a specified RSR addr? 

Br if yes 

Is this a mux lineT' 

Br if yes 

Say no endstring buffer 

Line is not genned in 



Allocate and set up pointers for the output ring buffers 



5*: MOV R5, CL*0RB<R1) 

MOV R5, CL*0RP<R1) 

MOV R5, CL*0RG<R1> 

MOV #CLORSZ, RO 

TST R2 

BEQ 6* 

MOV L0TSIZ(R2),R0 

MOV RO, CL*0RA<R1) 

MOV RO, CL*0RS<R1 ) 

ADD RO, R5 

MOV R5, CL*0RE<R1) 

ADD RO, R3 



6*: 



Start of output ring buffer 

Input character pointer 

Next available character pointer 

Get default output ring buffer size 

Is this CL unit connected to a line? 

Br if not 

Get size of output ring buffer 

Set size of output ring buffer 

Available space in ring buffer 

Point beyond end of ring buffer 

Address past end of ring buffer 

Accumulate size of output ring buffers 



Allocate space for end-of~file string buffer 

MOV R5, CL*EPS(R1) i Set pointer to end-of-file string buffer 

CLR CL*EPP(R1) J No string to print yet 

ADD #<CLE0FS+1>, R5 ; Reserve space for buffer 

ADD #<CLE0FS+1>, R3 ; Accumulate buffer space 

Initialize end-of-file form-feed count 



\ 



TSINIT - 
CLINIT • 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



- TSX startup initializ HACRO V05. 04 

- Initialize CL handler 
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013604 005061 OOOOOOS 



013610 
013614 
013616 
013620 
013624 
013630 
013632 
013636 
013642 
013644 
013650 
013654 
013656 
013662 



013700 
013704 



013706 
013714 
013720 
013724 
013732 
013740 
013746 
013752 
013760 
013764 
013770 
013774 
013776 



014002 
014010 
014012 
014020 
014024 
014030 
014036 



CLR 



CL*EPN<R1) 



012700 
005702 
001421 
016202 
032702 
001402 
052700 
032702 
001402 
052700 
032702 
001402 
052700 
010061 



OOOOOOG 



0000000 
OOOOOOG 

0000000 
0000000 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



Initialize option word 

#<CO*DEF>, RO 



1%: 



3*: 



7«: 



MOV 
TST 
BEQ 
MOV 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
MOV 



7* 

ILSW2<R2),R2 
#*TAB, R2 
2* 

#CO*TAB, RO 
#*FORM, R2 
3* 

#CO*FF, RO 
#*eBIT, R2 
7* 

#CO*SBT, RO 
RO, CL*0PT<R1) 



013666 012761 000102 OOOOOOG 



013674 005061 OOOOOOG 



Initialize page length 

MOV #66. ,CL*LEN<R1) 

Initialize status flags 
CLR CL*STA(R1) 

Do next line 



162701 
002262 



062737 
013701 
010137 
013761 
012761 
012761 
005061 
012761 
062703 
062703 
010361 
005205 
042705 



022727 
101430 
062737 
013701 
010137 
013761 
012761 



OOOOOJ 



4*: 



SUB 
BGE 



#2, Rl 
1« 



; Init ENDPAGE=0 



Get default option flags 

Is this CL unit connected with a line? 

Br if not 

Get line options 

Does hardware support tabs? 

Br if not 

Set hardware-tab flag 

Does hardware support form feeds? 

Br if not 

Set hardware-form-feed flag 

Does hardware want 8 bit support? 

Br if not 

Enable 8 bit support for CL line 

Set options for this CL line 



i Say page length = 66 lines 



J Initialize status flags 



J Get index # of next unit 

iLoop if more units to initialize 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



000002 

OOOOOOG 

OOOOOOG 

000202 ' 

OOOOOOG 

OOOOOOC 

OOOOOOG 

000006G 

OOOOOOG 

OOOOOOC 

OOOOOOG 

000001 



OOOOOOG 000010 

000002 OOOOOOG 
OOOOOOG 
OOOOOOG 

000210' OOOOOOG 
OOOOOOG OOOOOOG 



Make a device table entry for "CL" device 

ADD #2, NUMDEV i One more device 

MOV NUMDEV, Rl i Get device table index 

MOV Rl^CLDEVX ; Remember index number of CL device 

MOV R50CL, PNAME(Rl) i Set device name <"CL") 

MOV #CLSTS, DVSTAT(Rl) i Set dev status flags 

MOV #<CDX*NCA!DX*NMT!DX*NRD>, DVFLAG<R1) i Device info flags 

CLR DEVSIZ<R1) i Clear device size 

MOV #CLHEAD+6, HANENT(Rl) i Set handler entry point (4th word) 

ADD #CLSIZE>R3 i Get size of handler 

ADD #«CLT0TL*46. >+<NI0L»32. », R3 iAdd size of tables in TSGEN 

MOV R3, HANSI2(R1) i Set size of handler 

INC R5 iMake sure free-memory pointer is even 

BIC #1,R5 

Make a device table entry for CI if there are more than 8 CL units 

i Are there more than 8 CL units? 

; Br if not — Don't need CI 

; One more device 

j Get device table index 

j Remember index number of CL device 
MOV R50C1,PNAME<R1) ; Set device name ("CI") 
MOV #CLSTS, DVSTAT(Rl) J Set dev status flags 



CMP 


ttCLTOTL, #8 


BLOS 


13* 


ADD 


#2, NUMDEV 


MOV 


NUMDEV, Rl 


MOV 


Rl, CIDEVX 



i 



TSINIT - 
CLINIT • 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 



- TSX startup initializ 

- Initialize CL handler 



MACRO V05. 04 Thursday 17-Dec-87 08:39 Page 40-2 



014044 
014052 
014056 
014064 



014072 
014076 
014100 
014104 
014106 
014112 
014116 
014120 
014122 
014124 
014130 
014132 
014136 
014140 
014142 



014146 
014150 
014152 
014154 



012761 
005061 
012761 
012761 



105737 
001023 
1 1 3703 
000303 
153703 
012702 



00 1 407 
005722 
020227 
103772 
012701 
000401 
011201 
110137 



012603 
012602 
012601 
000207 



OOOOOOC 0000000 
0000000 

000006G 0000000 
000004 0000000 



MOV #<DX*NCA!DX*NMT.'DX*NRD>, DVFLAG(R1 ) 

CLR DEVSIKRl) /Clear device size 

MOV #CLHEAD+6, HANENT(Rl) ; Set handler entry 

MOV #4. ,HANSI2<R1) ; Set size of handler 



Device info flags 

point <4th uiord) 



Set the version 
VTCOM to see if 



OOOOOOG 

0000000 

0000000 
000522' 

000556 ' 
000021 

OOOOOOG 



13*: 


TSTB 


CLVERS 




BNE 


9* 




MOVE 


SYSVER, R3 




SWAB 


R3 




BISB 


SYSUPD, R3 




MOV 


#CLVTBL, R2 


10*: 


CMP 


R3, <R2) + 




BEQ 


12* 




TST 


(R2> + 




CMP 


R2, ttCLVEND 




BLO 


10* 




MOV 


#17. ,R1 




BR 


11* 


12*: 


MOV 


<R2),R1 


11*: 


MOVE 


Rl, CLVERS 


i F i n i 


shed 




> 

9*: 


MOV 


<SP)+, R3 




MOV 


<SP)+, R2 




MOV 


<SP)+,R1 




RETURN 





number to be returned by the . SPFUN used by 
it is matched to the correct version of XL/XC. 



Was a version specified in TSGEN? 

Br if yes 

Get current RT-11 version number 

Put in high order byte 

Put update number in low— order byte 

Point to table with CL version numbers 

Is this entry for our version? 

Br if yes 

Skip cell with CL version 

Checked all table entries? 

Loop if not 

Set default CL version if not found 

> Get correct CL version 
J Set CL version number 



t 

c 



TSINIT - 


-- TSX s 


tartup initializ 


LDINIT - 

1 
2 
3 


— Determine LD 


translat 


4 
5 
6 
7 
8 


014156 


010146 




9 


014160 


113701 


OOOOOOG 


10 


014164 


001022 




n 


014166 


010246 




12 


014170 


010346 




13 


014172 


013703 


OOOOOOG 


14 


014176 


012701 


000001 


15 


014202 


012702 


000556 ' 


16 


014206 


022203 




17 


014210 


001404 




18 


014212 


005712 




19 


014214 


001374 




20 


014216 


012701 


000002 


21 


014222 


110137 


ooooooe 


22 


014226 


012603 




23 


014230 


012602 




24 


014232 


012601 




25 


014234 


000207 
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table format 



. SBTTL LDINIT 



Determine LD translation table format 



RT~il V5. 4 
Determine m 
appropriate 
format in r 



LDINIT: 


MOV 


R1,-<SP) 




MOVE 


LOVERS, Rl 




BNE 


9* 




MOV 


R2, -<SP) 




MOV 


R3, -<SP) 




MOV 


SYSVER, R3 




MOV 


#1,R1 




MOV 


#LD1TBL, R2 


1$: 


CMP 


<R2)+, R3 




BEQ 


5* 




TST 


@R2 




BNE 


1* 




MOV 


#2, Rl 


5$: 


MOVE 


Rl, LOVERS 




MOV 


<SP)+, R3 




MOV 


(SP)+, R2 


9*: 


MOV 


(SP)+,R1 




RETURN 





changed that format of the LD translation tables, 
hich version of RT-11 is being used and set the 

value for LDVERS to generate correct table 
esponse to LD . SPFUN 372 



; See if value was specified in TSQEN 
} If value specified in TSGEN, use it 



Get current RT version and update 

Assume version format RT5. 3 or earlier 

Point to table of versions using format 

Does this entry match actual version? 

Exit if so 

End of table? 

Keep looking if more entries 

If not in format 1 table, use format 2 

Remember for LD SPFUN 372 



i 

i 



TSINIT 
INDINI - 

1 
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t 

5 

6 

7 

8 

9 
10 
11 

12 014236 

13 014240 
14 

15 

16 

17 014242 

18 

19 

20 

21 014246 

22 014254 

23 014274 

24 014276 
25 

26 
27 

28 014302 

29 014306 

30 014342 

31 014346 

32 014404 

33 014410 

34 014412 

35 014414 

36 014416 

37 014420 

38 014424 

39 014426 

40 014430 

41 014434 

42 014436 

43 014442 

44 014444 

45 014450 
46 

47 
48 
49 

50 014454 

51 014460 

52 014464 
53 

54 
55 

56 014470 

57 014474 



. SBTTL INDINI — Initialize IND program 
Perform initialization for IND program. 



Outputs: 

If IND is available* the following information is set up: 

INDSAV = 5 word . SAVESTATUS block for SY: IND. SAV file 

INDDBL = Lotuest block # within IND. SAV file of data overlay segment. 

INDDBS = Number of blocks used for data overlay segment. 

INDTSV = 5 word .SAVESTATUS block for SY: TSX IND. TSX file 



010246 
010346 



005037 0000000 



013737 OOOOOOG 000264 



INDINI: MOV 
MOV 



R2, -<SP) 
R3, -(SP) 



103002 
000137 



013703 

016302 

162702 
060302 
011203 
020312 
001003 
062702 
000773 
005722 
012237 
011202 
062702 
000302 
042702 
010237 



014730' 

000152' 

000064 

001000 



5«: 



000006 

OOOOOOG 

000377 

177400 
0000000 



012700 
013702 
004737 



013703 
070327 



OOOOOOG 
000264 ' 
024616' 



OOOOOOG 
OOOOOOC 



Determine if IND support is wanted 

CLR INDSAV ; ASSUME IND SUPPORT NOT WANTED 

Lookup SY: IND. SAV file 

MOV SYNAME, INDNAM ; LOOK UP IND ON BOOT DEVICE 

.LOOKUP #AREA, #1, #INDNAM ; TRY TO FIND SY: IND. SAV 

BCC 4* ; BR IF FOUND IND 

UMP 9* i IF CAN'T FIND IND, THEN NO IND SUPPORT 

Set up information about IND overlay data segment 

4*: MOV WRKBUF. R3 ; Get pointer to work buffer 

,#0 i READ IN BLOCK OF SAV FILE 

GET POINTER TO OVERLAY TABLE 

,#1 ; READ IN BLOCK 1 WITH OVERLAY TABLE 

GET ADDRESS OF OVERLAY TABLE REL TO BLOCK 1 

ADD BASE ADDRESS WHERE BLOCK 1 DATA IS 

Get virtual address of segment 

Search for Ist segment with different addr 

Br if found it (this is the data segment) 

Point to overlay table entry for next seg 

UK 5S 
6*: TST (R2)+ i Point to word with block # if SAV file 

GET BLOCK # IN SAV FILE OF DATA OVERLAY 
GET # OF WORDS IN OVERLAY SEGMENT 
ROUND UP TO NEXT BLOCK 
CONVERT # WORDS TO # BLOCKS 

SAVE # BLOCKS USED FOR DATA OVERLAY 

Do .SAVESTATUS on channel opened to IND. SAV file so that we 
can do a reopen to access it from KMON. 

GET ADDRESS OF SAVESTATUS BLOCK 
GET RAD50 DEVICE NAME 
SAVE FILE STATUS 

Determine how much space is needed for SY: TSXIND. TSX swap file 

MOV INDDBS, R3 ; GET # BLOCKS NEEDED PER JOB 
MUL #<LSTSL/2>, R3 ; TIMES TOTAL NUMBER OF JOBS 



MOV 


WRKBUF, R3 


. READW 


#AREA, #1,R3, #256. 


MOV 


64<R3),R2 


. READW 


#AREA, #1,R3, #256. 


SUB 


#1000, R2 


ADD 


R3, R2 , 


MOV 


<R2),R3 


CMP 


R3, <R2) } 


BNE 


6* i 


ADD 


#6, R2 ; 


BR 


5« 


TST 


(R2)+ } 


MOV 


<R2)+, INDDBL i 


MOV 


<R2),R2 i 


ADD 


#255. , R2 i 


SWAB 


R2 i 


BIC 


#'^C<377.>, R2 


MOV 


R2, INDDBS ; 



MOV 


# INDSAV, RO 


MOV 


INDNAM, R2 


CALL 


SETCHN 



c 
i 
< 
i 

i 
< 
i 
i 
i 
€ 

i 
i 

i 
i 
i 
i 
i 
1 
i 
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INDINI - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
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014500 
014504 
014510 



014512 
014532 
014534 
014536 
014540 
014546 



013700 OOOOOOG 
004737 025176' 
103522 



103415 
020003 
001462 



014566 
014612 
014614 
014616 
014620 
014656 
014664 



014704 
014710 
014714 
014720 



014730 
014732 
014734 



014736 
014744 
014752 



014756 
014760 
014766 
014774 



103451 
010302 
005302 



012700 OOOOOOG 
013702 OOOOOOG 
004737 024616' 



012603 
012602 
000207 



004737 010142' 



010001 



004737 010170 
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Load Rt-11 device handler for ind swap file. 



MOV INDFIL, RO 
CALL RTFTCH 
BCS 11* 



; Get name of the device 

; Try to fetch the RT-11 device handler 

; Br if error on handler fetch 



See if TSXIND file already exists 

LOOKUP #AREA, #1,#IWDFIL i DOES SY: TSXIND. TSX FILE EXIST NOW? 



BR IF NOT 

IS IT OF THE CORRECT SIZE? 

BR IF YES 

FILE IS OF WRONG SIZE 

DELETE OLD FILE 



1*: 



BCS 1* 

CMP RO, R3 

BEQ 2* 

. PURGE #1 

. DELETE #AREA, #1, #INDFIL 

File does not now exist 
Create new file 



.ENTER #AREA, #1>#INDFIL, R3 ; CREATE NEW TSXIND FILE 

;BR IF ERROR ON CREATE 
; # BLOCKS IN FILE 
iGET # OF LAST BLOCK IN FILE 

. WRITW #AREA, #1, WRKBUF, #256. , R2 i WRITE TO LAST BLOCK OF FILE 

. CLOSE #1 i NOW CLOSE THE FILE 

.LOOKUP #AREA, #1,#INDFIL ; REOPEN TSXIND FILE WITH LOOKUP 



BCS 


10* 


MOV 


R3, R2 


DEC 


R2 



Do . SAVESTATUS for SY: TSXIND. TSX file 



2*: 



MOV #INDTSV, RO 
MOV INDFIL, R2 
CALL SETCHN 
. RELEAS #INDFIL 



POINT TO SAVESTATUS BLOCK 
GET RAD50 DEVICE NAME 
SAVE FILE INFO 
Release device handler 



Finished 



9*: 



MOV 
MOV 
RETURN 



(SP)+, R3 
(SP)+, R2 



Error occurred while opening SY: TSXIND. TSX file 

10*: .PRINT #TSXHD /Print error message 

.PRINT #INDOPN 
CALL SPNEED i Print info about number of blocks needed 

Error: Invalid device specification. 



11*: MOV RO, Rl 

. PRINT #TSXHD 

.PRINT #INDOPN 

CALL BADDEV 



J Save device name 
i Print error message 

iPrint invalid device specification 



TSINIT — TSX startup initializ HACRO V05. 04 
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1 

n 



5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



. SBTTL UCLINI 



Initialize TSXUCL data file 



015000 
015002 



015004 
015010 
015012 
015016 



010246 
010346 



105737 
00 1 536 
013702 
001533 



0000000 
0000000 



22 


015020 


012700 


0000000 


23 


015024 


062700 


0000000 


24 


015030 


070200 




25 


015032 


062703 


000777G 


26 


015036 


005502 




27 


015040 


071227 


001000 


28 


015044 


010237 


OOOOOOG 


29 








30 








31 








32 


015050 


070227 


OOOOOOC 


33 








34 








35 








36 


015054 


013700 


OOOOOOG 


37 


015060 


004737 


025176' 


38 


015064 


103523 




39 








40 








41 








42 








43 


015066 






44 


015106 


103415 




45 


015110 


020003 




46 


015112 


001446 




47 


015114 






48 


015122 






49 








50 








51 








52 


015142 






53 


015166 


103452 




54 


015170 


005303 




55 


015172 






56 








57 









UCLINI is called to initialize the TSXUCL data file which is used 
to store usei — defined commands. 



Outputs: 
TSXUCL data file is initialized. 
UCLBLK = Number of blocks in data file for each job. 



UCLINI: MOV 
MOV 



R2, -(SP> 
R3, -<SP) 



Determine if TSXUCL data file is needed 



i Is TSXUCL being used at all? 
i Br if not 

; Get maximum number of commands 
; Br if none allowed 



Determine number of blocks needed in data file for each job 



TSTB 


VU$CL 


BEQ 


9* 


MOV 


VUCLMC, R2 


BEQ 


9* 



MOV #UK**SZ, RO 

ADD #US«*SZ, RO 

MUL RO, R2 

ADD #UC**SZ+511. 

ADC R2 

DIV #512. ,R2 

MOV R2, UCLBLK 



iSize of each keyword descriptor 
iSize of each command string descriptor 
> Compute total # bytes for keywords+commands 
R3 iAdd space for control information & round up 
iPropogate carry 
i Convert to # of blocks needed 
; Save number of blocks needed per job 



Multiply by number of jobs to get total file size 

MUL #<LSTSL/2>, R2 i Times total number of jobs 
Load Rt-11 device handler for ind swap file. 



MOV 

CALL 

BCS 



UCLDAT, RO 

RTFTCH 

11* 



i Get name of the device 

i Try to fetch the RT-11 device handler 

; Br if error on handler fetch 



1*: 



The total required file size is now in R3. 
See if the file already exists. 

LOOKUP #AREA, #1,#UCLDAT i See if the file exists now 
BCS 1* i Br if file does not exist 

CMP RO, R3 ; Is existing file of correct size? 

BEQ 2* ; Br if yes — use the old file 

.PURGE #1 i Purge the channel 

.DELETE #AREA,#1, #UCLDATi Delete the old file 

Create a new data file 

.ENTER #AREA, #1,#UCLDAT, R3 i Create new data file 

BCS 10* ; Br if error creating the file 

DEC R3 iGet # of last block in the file 

. WRITW #AREA, #1, WRKBUF, #256. , R3 i Write to last block of file 

Translate possible logical device name to physical name and close 



/ 

1 



TSINIT - 


— TSX s 


tartup initializ 


UCLINI - 


— Initialize TSXUCL dat 


58 








59 








60 


015230 






61 


Vlt>i^^U 


U1jJ705 


0o003ii ' 


62 


015254 


063702 


000030 ' 


63 


015260 


062702 


000036 


64 


015264 


010237 


OOOOOOG 


65 


015270 






66 


015276 






67 








68 








69 








70 


015306 


012603 




71 


015310 


012602 




72 


015312 


000207 




73 








74 








75 








76 


015314 






77 


015322 






7S 


015330 


004737 


010142' 


79 








80 








81 








82 


015334 


010001 




S3 


015336 






84 


015344 






85 


015352 


004737 


010170' 
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?$: 



(Physical name is needed for TSXUCL program. ) 

. CSTAT #AREA> #1,#NFSBLK ; GET CHANNEL STATUS INFORMATION 
MOV <NFSBLK+12>, R2 ; FETCH DEVICE NAME IN RAD50 
ADD <NFSBLK+10>, R2 ; ADD IN DEVICE UNIT NUMBER 



ADD #-^R 0, R2 

MOV R2, UCLDAT 

. CLOSE #1 

. RELEAS #UCLDAT 



i CONVERT UNIT NUMBER TO RAD50 

; SET PHYSICAL NAME BACK INTO TSGEN CELL 

i Close the file 

> Release device handler 



Finished 



9$: 



MOV 
MOV 
RETURN 



<SP)+, R3 
(SP)+, R2 



Error creating the data file 

10*: .PRINT #TSXHD ; Print error message 

.PRINT #UCLOPN 
CALL SPNEED /Print info about number of blocks needed 

Error: Invalid device specification. 

11$: 



MOV RO, Rl 

. PRINT #TSXHD 

. PRINT #UCLOPN 

CALL BADDEV 



i Save device name 
i Print error message 



Print invalid device specification 



TSINIT • 


— TSX s 


tar tup initializ 


MEMINI - 


— Initialize memory man 


1 
2 








3 








4 








5 








6 


015356 


010146 




7 


015360 


010246 




S 


015362 


010346 




9 


015364 


010446 




10 


015366 


010546 




11 








12 








13 








14 


015370 


012700 


OOOOOOG 


15 


015374 


012701 


OOOOOOG 


16 


015400 


012702 


OOOOOOG 


17 


015404 


012703 


ooooooe 


IS 


015410 


012704 


000010 


19 


015414 


005005 




20 


015416 


010520 




21 


015420 


010521 




22 


015422 


012722 


077406 


23 


015426 


012723 


077406 


24 


015432 


062705 


000200 


25 


015436 


077411 




26 








27 








28 








29 


015440 


012737 


OOOOOOG 


30 








31 








32 








33 


015446 


012605 




34 


015450 


012604 




35 


015452 


012603 




36 


015454 


012602 




37 


015456 


012601 




38 


015460 


000207 
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. BBTTL MEMINI — Initialize memory management 



I 
f 



Initialize memory management registers for a 1-to-l mapping, 
but leave memory management turned off. 



MEMINI: 



MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP) 
R3, -<SP) 
R4, -(SP) 
R5, -<SP> 



Initialize all pages for a 1-to-l mapping. 



>$: 



MOV #KPARO, RO i Kernel mo 

MOV #UPARO, Rl iUser mode 

MOV #KPDRO, R2 ; Kernel mo 

MOV #UPDRO, R3 i User mode 

MOV #8. .R4 i Initializ 

CLR R5 ;Set initi 

MOV R5, (R0)+ ;Set kerne 

MOV R5, <R1)+ jSet user 

MOV #077406, <R2)+ ; Set kerne 

MOV #077406, <R3>+ ; Set user 

ADD #200, R5 ; Advance b 

SOB R4, 2* ; Init all 



de PAR 

PAR 
de PDR 

PDR 
e 8 pages 
al PAR value 
1 PAR 
PAR value 
1 PDR 
PDR value 
lock number 
pages 



Map kernel mode I/O page (160000) to 17760000. 
MOV #I0PAGE,e#KPAR7 i Map I/O page 



Finished 

MOV 
MOV 
MOV 
MOV 
MOV 



<SP)+, R5 
(SP)+, R4 
<SP)+, R3 
(SP)+, R2 
(SP)+, Rl 



RETURN 






TSINIT — 
MEMTST — 

1 

2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
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33 
34 
35 
36 
37 
38 
39 
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41 
42 
43 
44 
45 
46 
47 
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49 
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51 
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53 
54 
55 
56 
57 
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1 5462 
015464 
015466 
015470 
015472 
015474 



015500 
015506 
015510 
015512 
015516 
015520 



015524 

015524 
015530 
015532 
015534 
015540 
015544 
015550 
015552 



000110 

010146 
010246 
010346 
010446 
010546 
013746 



012737 
000240 
000240 
005737 
103402 
105237 



105737 
001410 
005005 
153705 
072527 
162705 
000400 



. SBTTL MEMTST 



Set up information about available memory space 



MEMTST is called to set up information related to memory management. 
MEMfST performs the following functions: 

1. Determine how much memory is installed on machine. 

2. Load Kernel mode mapping registers. 

Inputs: 
R5 = top of memory currently allocated for TSX and low memory buffers. 

Outputs: 
PHYMEM = 64-byte block # above top of physical memory. 
FMEMHI = 64-byte block # above top of memory available for system. 
Kernel mode mapping registers loaded. 
Memory management is left turned off. 



Offset word to test for memory wrap - choose a location which will not 
effect RT~11 or TSX-Plus initialization. 



TSTWRD 



110 



; Offset word to test for memory wrap 



000004 



MEMTST: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



R 1 . - ( SP ) 
R2, -<SP) 
R3, -<SP) 
R4, -<SP> 
R5, -<SP) 
@#4, -<SP) 



> Save illegal mem. ref. trap vector 



015716' 000004 



OOOOOOG 



OOOOOOG 



Determine if this machine has a memory management register # 3. 
If it does not* then machine cannot possibly have more than 256Kb. 

4 j Catch trap 

iClean out 11/73 pipeline 

/Before attempting trap 

i Try to access status register 3 

/Br if MMU 3 status register is non-existent 

> No trap. We must have SR3 

If we are running on a Professional/ there is a register that tells 
us how much memory is installed on the machine. 



MOV 


#TRCSET, 


NOP 




NOP 




TST 


@#SR3MMR 


BCS 


22* 


INCB 


SR3FLG 



22*: 
. IF 



OOOOOOG 



173050 
000011 
000010 



NE/ PROASM 
TSTB PROFLG 



/Are we running on a Professional? 

/Br if not 

/Load byte without sign extension 

/Get 32Kb top of system RAM boundary 

/Convert to # 64 byte blocks 

/Don't use the last 512 bytes of memory 



/Assemble if could be on a PDP-11 
We are not running on a Professional. 





BEQ 


26* 




CLR 


R5 




BISB 


©#173050/ R5 




ASH 


#9. /R5 




SUB 


#10/ R5 




BR 


7* 


26*: 






. ENDC 


/NE/ 


PROASM 


. IF 


NE/ < 


PROASM- 1> 
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59 

60 

61 

62 

63 

64 

65 

66 

67 

68 
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82 
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84 

85 

86 
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89 

90 

91 

92 

93 

94 
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— Set up information about available memory space 



015552 
015556 
015562 
015564 
015570 
015574 



015600 
015604 
015606 
015614 



010537 OOOOOOG 

020537 0000000 

101402 

013705 OOOOOOG 

010537 OOOOOOG 

010537 000134' 



Test each page above TSX to see uihere the top of memory is. 

#RTNKM, @#20 ;Use lOT instruction to get out of user mode 



MOV 

CLR 

BIS 

TSTB 

BEG 

BIS 



#MMENBL, @#SROMMRi Enable memory management 

SR3FLG i Does maching have mem management reg # 3? 

4* i Br if non-existent 

#EMMAP/ @#SR3M«R i Enable 22-bit extended memory 



4*: 


MOV 


#1024. ,R5 


5*: 


MOV 


R5, @#UPAR7 




BIS 


#UMODE, @#PSW 




TST 


e# 160000 



lOT 




BCS 


6« 


ADD 


#10, R5 


CMP 


R5, #177600 


BLO 


5* 



Map user page 7 to each successive 256-uJord block and attempt to access. 

j Start checking at 64Kb 

; Map user page 7 to page to be tested 

i Go into user mode 

J Can uie access the page? 

Use JOT to get back into kernel mode. 

j Return to kernel mode 

i Br if memory is non-existent 

i Go try next page 

; Don't enter I/O page 

Check for potential memory wrap (on 18-bit 256K byte computers). 

6*: CMP R5, #10000 i Is physical memory above 256K bytes 

BLOS 7* > Br if belouj 256K bytes 

CLR e#TSTWRD ; Clear physical location 

MOV #10000, ®#UPAR7 ; Map to 256K byte boundary 

BIS #UMODE, @#PSW ;Go into user mode 

MOV #-l,e#160000+TSTWRD i Store -1 at 256K physical location 

lOT ; Return to kernel mode 

TST @#TSTWRD ; Test physical location 

BEQ 7* i Br if physical location is clear 

MOV #10000, R5 ; Constrain memory to 256K byte total 

. ENDC ; NE, <PR0ASM-1> 

Reached end of available memory. 

7$: MOV R5, PHYMEM ; set physical memory size 

Constrain kernel to user specified cutoff 
Br if below user specified 
Only use this much memory 

a*: MOV R5, «MEMSZ i Set # 64~byte blocks of total memory 

Save base 64-byte block # of top of free mem 



MOV 


R5, PHYMEM 


CMP 


R5, MAPSIZ 


BLOS 


8* 


MOV 


MAPSIZ, R5 


MOV 


R5, *MEMSZ 


MOV 


R5, FMEMHI 



Turn off memory management 



105737 OOOOOOG 

001403 

042737 OOOOOOG OOOOOOG 

042737 OOOOOOG OOOOOOG 9$: 



TSTB SR3FLG ; Do uie have memory management reg # 3? 

BEQ 9* J Br if non-existent 

BIC #EMMAP, @#SR3MMR i Disable extended memory management 

BIC #MMENBL, @#SROMMRi Turn off memory management 



015622 023727 000134' 010000 



If this is a Q-bus machine with >256Kb then set EXTLSI flag in ICONFG 
CMP FMEMHI, #4096. J Does machine have at least 256Kb? 



TSINIT 
MEMTST - 

115 

116 

117 

i IB 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 



- TSX startup initializ MACRO V05. 04 Thursday 17-Dec-87 08:39 

- Set up information about available memory space 



015630 
015632 
015636 
015644 
015646 



015654 
015662 
015664 
015670 
015672 



015676 
015702 
015704 
015706 
015710 
015712 
015714 



015716 
015724 



015726 
015734 



152 
153 



015736 
015744 

015752 



103411 
105237 
123727 
001003 
052737 



123727 
001005 
105737 
001402 
105237 



012637 
012605 
012604 
012603 
01260? 
012601 
000207 



052766 
000002 



042766 
000002 



OOOOOOG 
0000000 

000001 



OOOOOOG 
000306 ' 



BLO 

INCB 

CMPB 

BNE 

BIS 



25* 

MEM256 

VBUSTP, #QBUS 
25* 
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; Br if not 

i Remember machine has at least 256kb 

; Is this a Q-bus machine? 

; Br if not 



#EXTLSI. ICONFG i Set extended-LSI flag in ICONFG 
See if this machine needs UNIBUS mapping 



OOOOOOG OOOOOOG 25*: 

OOOOOOG 

OOOOOOG 



000004 



OOOOOOG 000002 



29*: 



; 


CMPB 


VBUSTP, #U 




BNE 


29* 




TSTB 


MEM256 




BEQ 


29* 




INCB 


UBUSMP 


F 


inished 






MOV 


<SP)+, @#4 




MOV 


(SP)+,R5 




MOV 


<SP)+, R4 




MOV 


(SP)+, R3 




MOV 


<SP)+, R2 




MOV 


<SP)+,R1 




RETURN 





VBUSTP, #UN I BUS ; Is this a UNIBUS machine? 



; Br if not 

; Does machine have at least 256kb of memory? 

; Br if not 

; Say UNIBUS mapping is needed 



Reset trap vector 



Trap - return with C-bit set. 



000001 000002 TRCSET: 



BIS 
RTI 



#1, 2<SP) 



; Set c-bit for return 
i Return from trap 



IDT 
RTNKM: 



return at kernel mode with c-bit preserved. 



BIC 
RTI 



#UMODE, 2<SP) 



} Clear user mode - return to kernel 
i Return from trap 



000137 004250 



Error: System does not have memory management hardware. 
NOXM: PRINT #TSXHD ; PRINT ERROR MESSAGE 

; ABORT INITIALIZATION 



. PRINT #TSXHD 
.PRINT #NXMMSG 
JMP INISTP 



i 
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3 








4 








5 








6 








7 








S 








9 








10 








11 








12 


015756 






13 








14 








15 








16 


015756 


012700 


0000000 


17 








IS 








19 








20 








21 


015762 


062700 


000077 


22 


015766 


042700 


000077 


23 


015772 


010037 


OOOOOOG 


24 


015776 


062737 


OOOOOOG OOOOOOG 


25 


016004 


062700 


00000 IG 


26 








27 








28 








29 


016010 


006200 




30 


016012 


010037 


OOOOOOG 


31 








32 








33 








34 


016016 


062700 


000037 


35 


016022 


072027 


177773 


36 


016026 


000300 




37 


016030 


052700 


000006 


38 


016034 


010037 


OOOOOOG 


39 








40 








41 








42 


016040 


013700 


OOOOOOG 


43 


016044 


062700 


000377 


44 


016050 


072027 


177770 


45 


016054 


010037 


OOOOOOG 


46 








47 








48 








49 


016060 


012700 


OOOOOOG 


50 


016064 


062700 


000077 


51 


016070 


072027 


177772 


52 


016074 


005300 




53 


016076 


000300 




54 


016100 


052700 


000006 


55 


016104 


042700 


100261 


56 


016110 


010037 


OOOOOOG 


57 









. SBTTL CXTALC — Bet up info about job context area 
Set up information about the size of the job context area. 



; Outputs: 

; CXTWDS = Number of luords needed for job context area. 

> CXIPAG = Number of 512-byte pages needed for context area. 

i CXTPDR = Value to load into PBR when mapping job context area. 

i CXTRMN = Address of simulated RMON in context area. 

i RMNPDR = Value to load into PDR to map to simulated RMON. 

CXTALC: 

i 

; Get size of base portion of job context area 

MOV #CXTSIZ,RO ;Get # bytes for base context area 

i Bound up to 64-byte boundary and add size of simulated RMON 
; which is allocated above the base job context data. 



ADD #63. , RO 

BIC #77, RO 

MOV RO, CXTRMN 

ADD #CXTBAS, CXTRMN 

ADD #MVSIZ+1,R0 



i Bound up to 64 byte boundary 

Offset to start of simulated RMON 

Add base virtual address of context area 

Add space for simulated RMON & channels 



Save number of words needed for context avsa 



ASR 
MOV 



RO 

RO, CXTWDS 



i Convert to # words 

iThis is # words for whole job context area 



Compute PDR value to use to map to job context area 



ADD 


#31. ,R0 


ASH 


#-5. , RO 


SWAB 


RO 


BIS 


#6, RO 


MOV 


RO, CXTPDR 



Bound up to # 32 word units 

Get # 32-word units for context area 

Put # 32-word units in high-order byte 

Set PDR control flags 

This is the PDR value 



Compute # 512-byte pages needed for job context block 



MOV 


CXTWDS, RO 


ADD 


#255. , RO 


ASH 


#-S. , RO 


MOV 


RO, CXTPAG 



Get back # words for context area 
Bound up to # 256-word blocks 
Get # 256-word pages for context area 
# pages for job context area 



Set up PDR value used when mapping to simulated RMON 



MOV 


#MVSIZ,RO 


ADD 


#63. , RO 


ASH 


#-6, RO 


DEC 


RO 


SWAB 


RO 


BIS 


#6, RO 


BIC 


#100261, RO 


MOV 


RO, RMNPDR 



Get size of monitor vector table 

Round up to # 32 word blocks 

Cvt to # 32-word blocks 

Get # blocks - 1 

Put # blocks in left byte 

Allow read and write access 

Make sure unused PDR bits are zero 

This is PDR value to map to sim. RMON 
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58 ; Finished 

59 ; 

60 016114 000207 RETURN 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 
»-).-} 

23 
24 
25 
26 

27 01 

28 01 

29 01 
30 

31 
32 
33 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 

43 01 

44 01 

45 01 
46 
47 
48 

49 01 

50 01 

51 01 

52 01 

53 01 

54 01 

55 01 

56 01 
57 



6116 
6120 
6122 



6124 
6126 
6132 
6136 
6142 
6146 
6152 
6156 
6160 
6162 
6164 
6170 



6174 
6200 
6204 
6206 
6212 
6216 



010246 
010346 
010446 



010503 
072327 
042703 
013702 
062702 
072227 
042702 
160203 
003440 
010304 
062704 
072427 



012700 
010037 
160200 
010037 
012700 
060300 
160400 
010037 



Thursday 17-Dec-S7 09:39 Page 47 



SBTTL MAPALC — Allocate memory usage table 



MAPALC is called to allocate a table that keeps track of which pages 
of memory are currently in use by user jobs and which are free. 
Each byte in the table corresponds to a 512-byte block of physical m* 
The portion of physical memory used by the system is not represented 
in the memoru allocation table. 



Inputs: 
R5 = 64-byte block number of top of free memory area. 
FMEMLO = 64-byte block number of base of free memory area. 



Outputs: 
FMEMHI 
MAPPAR 
BASMAP 



LOMAP = 



HI MAP = 



64-b 
64-b 
Virt 
corr 
in t 
actu 
Virt 
to 1 
Note 
alio 
Virt 
to 5 



yte bloc 
yte bloc 
ual addr 
espond t 
he alloc 
ally not 
ual addr 
st physi 
, LOMAP 
cation t 
ual addr 
12-byte 



k number of top of free memory area. 

k number used to map to the memory alloc table. 

ess of memory allocation table that would 

o physical address 0. Note* the entries 

at ion table between BASMAP and LOMAP are 

al located, 
ess of memory allocation table that corresponds 
cal 512-byte page that is available to user jobs. 
always contains 120000 because we access the 
able by mapping it through PAR 5. 
ess of memory allocation table that corresponds 
page above the top of the user area. 



MAPALC: MOV 
MOV 
MOV 



R2, -<SP) 
R3i -<SP) 
R4> -(SP) 



177775 

160000 

000136' 

000007 

177775 

160000 



001000 
177767 



0000000 

ooooooe 
ooooooe 

OOOOOOG 



ooooooe 



Determine how many bytes will be required for the memory allocation table. 
One byte in the table is required for each 512-byte physical page. 

Get 64-byte block # of top of free mem 

Convert to 512-byte page # 

Kill possible sign extension 

Oet 64-byte block # of base of free memory 

Round up 

Convert to 512-byte page # 

Kill possible sign extension 

Get # bytes needed for allocation table 

Br if memory overflow 

Get # bytes for allocation table 

Add 1 extra byte and round up to 512-byte 

Get # 512-byte units needed for alloc table 

Set up virtual address pointers for the allocation table 

We will map to alloc table through PAR 5 

Pointer to 1st entry in alloc table 

Get psBudo virtual address for page # O 

This would point to alloc entry for page 

Get back base address of table 

Add # bytes used by table 

Subtract space used by table itself 

Virtual address of 1st entry for system page 



MOV 


R5, R3 


ASH 


#-3. R3 


BIC 


#160000, R3 


MOV 


FMEMLO, R2 


ADD 


#7, R2 


ASH 


#~3, R2 


BIC 


#160000, R2 


SUB 


R2, R3 


BLE 


10* 


MOV 


R3, R4 


ADD 


#512. ,R4 


ASH 


#-9. , R4 



MOV 


#VPAR5, RO 


MOV 


RO, LOMAP 


SUB 


R2, RO 


MOV 


RO, BASMAP 


MOV 


#VPAR5, RO 


ADD 


R3, RO 


SUB 


R4, RO 


MOV 


RO, HIMAP 
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58 
59 

60 01 
6i Oi 

62 01 

63 01 

64 01 

65 01 
66 

67 
68 

69 01 

70 01 

71 01 

72 01 
73 

74 
75 

76 01 

77 01 

78 01 



6234 
6240 
6242 
6246 



6252 
6254 
6256 
6260 



6262 
6270 
6276 



072427 
160405 
020537 
101410 
010537 
010537 



012604 
012603 
012602 
000207 



000003 

000136' 

0000000 
000134' 



10*: 



000137 004250 



Allocate space for the 


ASH 


#3.R4 


SUB 


R4, R5 


CMP 


R5, FMEMLO 


BLOS 


10* 


MOV 


R5, MAPPAR 


MOV 


R5, FMEMHI 


F i n i & h e d 




MOV 


<SP)+, R4 


MOV 


<SP>+, R3 


MOV 


<SP)+, R2 


RETURN 




Error: Generated systei 


.PRINT 


#TSXHD 


. PRINT 


#PHSOVF 


JMP 


INISTP 



; Get # 64-byte units for alloc table 

; Compute physical 64-byte base for table 

;Did me run out of memory space? 

> Br if memory overflow 

;Use this value to map PAR 5 to alloc table 

; Save new top of free memory area 



i 
I 
I 



; Print error message heading 
/Physical memory overflow 
; Abort the initialization 



TSINIT - 
SETJSZ - 



3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



- TSX startup initiaiiz ("iACRO V05. 04 Thursday i7-Dec-S7 08:39 Page 48 
Set up information about maximum job sizes 



016302 010546 



23 
24 
25 

26 

27 
28 
29 
30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 
44 
45 
46 

47 

48 

49 

50 
51 
52 
53 

54 

55 
56 
57 



16304 
16310 
16314 



16320 
16324 



16326 
16332 
16336 
16340 
16342 
16346 
16350 
16354 
16360 

1 636e:. 

16366 
16370 
16374 



16400 
16404 
16406 
16412 



16416 
16420 



013705 
165705 
010537 



020537 
103436 



013700 
010037 
160005 
006205 
020537 
101402 
013705 
010537 
010500 
072027 
001002 
012700 
010037 



020537 
101402 
013705 
010537 



012605 
000207 



SBTTL SETJSZ 



Set up information about maximum job sizes 



SETJSZ is called to set up some information about the maximum 
job sizes to be allowed. The maximum job size is chosen so that 
we are guaranteed to be able to get at least one job logged on. 

Inputs: 
LOMAP = Address of 1st MEMMAP entry available to user jobs. 
HIHAP = Address of Ist MEMMAP entry above top of user job area. 

Outputs: 
FREPGS = Total number of 512-byte pages available to user jobs. 
MXJMEM = max # K bytes available to a job 
DFJMEM = Default job memory size <kb) 

SETJSZ: MOV R5, -(SP) 

Determine total number of pages of memory available to user jobs 



OOOOOOG 

ooooooe 

OOOOOOG 



0000000 



MOV 
SUB 
MOV 



HIMAP,R5 
LOMAP, R5 
R5, FREPGS 



POINTER ABOVE LAST FREE PAGE ENTRY 

GET TOTAL # OF FREE PAGES 

# FREE PAGES AVAILABLE TO USER JOBS 



Make sure there is enough free space to run TSKMON. 



CMP 
BLO 



R5, KMNPGS 
1* 



; COMPARE # FREE PAGES TO # PAGES FOR TSKMON 
iBR IF INSUFFICIENT MEMORY TO RUN TSKMON 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 

000012 

177774 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



10*: 



Set up max memory limit for jobs 

# PAGES NEEDED FOR JOB CONTEXT AREA 

LEAVE ROOM FOR JOB CONTEXT AREA 
Convert # pages to # KB 

COMPARE WITH TSGEN SPECIFIED MAX SIZE 
BR IF CONSTRAINED BY PHYSICAL SIZE 
LIMIT BY VALUE SPECIFIED IN TSGEN 
MAX # K BYTES AVAILABLE TO A JOB 

CONVERT # KB TO BYTE ADDRESS 
BR IF DIDN'T OVERFLOW 64KB 
GET 64KB TOP ADDRESS 
ADDRESS ABOVE TOP OF JOB 



MOV 


CXTPAG, RO 


MOV 


RO, JCXPGS 


SUB 


RO, R5 


ASR 


R5 


CMP 


R5, VHIMEM 


BLOS 


10* 


MOV 


VHIMEM, R 5 


MOV 


R5, MXJMEM 


MOV 


R5, RO 


ASH 


#10. , RO 


BNE 


2* 


MOV 


#177774, RO 


MOV 


RO, MXJADR 



Set default memory size of jobs 



CMP 


R5, VDFMEM 


BLOS 


11* 


MOV 


VDFMEM. R5 


11*: MOV 


R5, DFJMEM 


> Finished 




MOV 


<SP)+,R5 


RETURN 





COMPARE TO DEFAULT SPECIFIED IN TSGEN 
BR IF CONSTRAINED BY PHYSICAL LIMIT 
CONSTRAIN BY TSGEN PARAMETER 
SET DEFAULT JOB MEMORY SIZE 



Error — Insufficient memory space available to run TSKMON. 



i 
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58 ; 

59 016422 004737 025332' 1*: CALL SIZERR ; Generated system is too big — abort 






TSINIT 
SETJSZ 
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3 
4 
5 
h 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



016426 000207 



. IF NE, <PR0ASM--1> ; No parity control if PRO only 
. S13TTL PARSET — Setup memory parity control 

PAKSb I is called to set up memory parity control. 
Currently this consists of disabling memory parity. 



PARSET: TST 
BWE 
MOV 
MOV 



#MPARFL 

20f 

R2, -<SP) 

©#4, -(SP) 



jDoes he tuant to disable memory parity? 
; Br if not 



; Save contents of trap vector 
Catch traps that occur when we access unimplemented parity registers 
#2** e#4 



MOV 
NOP 
NOP 



; Send traps to 2* 

; Clean out instruction pipeline 



Disable parity for each block of memory 





MOV 


#MPARO, R2 


1*: 


BIC 


#PARENL, <R2) 




BR 


3* 


2*: 


ADD 


#4,SP 


3*: 


ADD 


#2, R2 




CMP 


R2, #MPAR16 




BLOS 


1* 


; Fini 


shed 






MOV 


<SP)+, @#4 




MOV 


(SP)+, R2 


20*: 


RETURN 






. IFF 


) NE, <PR0ASM-1> 


PARSET: 


RETURN 






. ENDC 


:NE, <PR0ASM-1> 



j Point to 1st memory control register 

J Disable memory parity 

; We did not trap 

; Clean trap PS and PC off of stack 

i Point to next parity control register 

; Have u>e cleared all registers? 

; Loop i f not 



J Restore trap vector 



€ 

i 
f 

€ 
€ 
€ 
C 

€ 

K 
* 
K 
C 
i 
4 
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3 



5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


016430 


010146 




15 


016432 


010246 




16 


016434 


010446 




17 








IS 








19 








20 


016436 


005001 




21 


016440 


020127 


OOOOOOC 


22 


016444 


103015 




23 


016446 


016102 


000000<3 


24 


016452 


001407 




25 


016454 


020227 


0000000 


26 


016460 


00 1 404 




27 


016462 


016104 


OOOOOOG 


28 








29 








30 








31 


016466 


004737 


016540' 


32 








33 








34 








35 


016472 


062701 


000002 


36 


016476 


000760 




37 








38 








39 








40 


016500 


012704 


OOOOOOG 


41 


016504 


001411 




42 


016506 


012701 


OOOOOOG 


43 


016512 


012102 




44 


016514 


010446 




45 


016516 


005004 




46 


016520 


004737 


016540' 


47 


016524 


012604 




48 


016526 


077407 




49 








50 








51 








52 


016530 


012604 




53 


016532 


012602 




54 


016534 


012601 




55 


016536 


000207 





. SBTTL GETHNL — Load device handlers into memory 

GEfUNL performs tujo functions: 

1. bet up information in the device tables about all devices. 

2. Load those handlers that reside in low memory. 

Inputs: 
R5 = Address of start of free memory. 

Outputs: 
R5 = Address of new start of free memory. 
NMXHAN = Number of handlers to load into extended memory. 



GETHNL: MOV 
iiOV 
MOV 



R1,-(SP) 



R 



di 



■ ( SP ) 



R4, -(SP) 
Begin loop to check ail handlers specified in TSGEN with DEVDEF. 



1$: 



CLR 

CMP 

BHIS 

MOV 

BEQ 

CMP 

BEQ 

MOV 



Rl i Init device table index 

Rl, #<AHEND-AUTHAN> ; Done all devices? 



2* 

AUTHAN(Rl), R2 

3* 

R2, #DMYDEV 

3* 

DTYPE<R1),R4 



Load this handler 

CALL LDHAND 
Check next device 



3*: 



ADD 
BR 



#2, Rl 
1* 



i Br if yes 

i Get the name of the device 

; Ignore null devices 

i Is this a dummy device entry? 

;Skip it if yes 

jGet flags specified in TSGEN 



Try to load handler into memory 



; Advance device index 

j See if more devices to load 



Now see if there are spooled devices to contend with 



2* : MOV 
BEO 
MOV 

5*: MOV 
MOV 
CLR 
CALL 
MOV 
SOB 

Finished 

9*; MOV 
MOV 
MOV 
RETURN 



#SPLND, R4 
9* 

#SPLDEV, Rl 
<R1)+,R2 
R4, -<SP) 
R4 

LDHAND 
<SP)+, R4 
R4, 5* 



(SP)+, R4 
(SP)+, R2 
<SP)+, Rl 



iAre there any spooled devices? 

i Br if not 

; Point to spooled device name table 

; Get the name of the next spooled device 

i Save device count 

J Say no TSGEN flags for device 

i Load the handler 

i Recover the device count 

; Loop if more handlers to load 
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1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 

25 

26 
27 
28 
29 
30 

31 

32 
33 
34 
35 
36 
37 

38 
39 
40 
41 
42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 
56 
57 



. SBTTL LDHAND 



Load a device handler 



016540 010446 



16542 
16546 



16550 
16554 



16562 
16566 
16572 
16574 
16600 
16602 
16606 
16610 
16614 
16616 
16622 
16624 
16632 



004737 
103456 



004737 
10345O 



016400 
032700 
001035 
032700 
001432 
032700 
00141P 
105737 
001024 
032700 
001404 
032737 
001015 



016710 



017066' 



16556 004737 017500 



OOOOOOG 
0000000 

0000000 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000001 000306 



LDHAND Bets up the device tables for a handler and loads into memory 

those handlers that reside in low memory. 

The device interrupt vectors are NOT set up by LDHAND. 

Inputs: 
R2 = Rad-50 name of device. 

R4 = TSX-Plus DX*xxx status flags for device from TSGEN. 
R5 = Address where handler is to be loaded. 

Outputs: 
R5 = New free memory address. 
NUMDEV = Incremented by 2. 
PNAMEd) = Rad-50 name of device. 
ENTRY<i) = Handler entry point. 
DVSTAT<i) = Device status flags. 
DVFLAG<i) = TSX-Plus device status flags. 
HANPAR<i) == PAR offset if this is a mapped handler. 

LDHAND: MOV R4, -<SP) 

Determine if we should ignore this device 



CALL 
BCS 



INSCKl 
9* 



; Should we ignore this device? 

j Br if yes 



The initial tests indicate that this handler should be loaded. 
Now open the handler file and perform some additional checks. 



CALL 
BCS 



INSCK2 
8* 



iPerform some additional checks on handler 
i Br if we should not load this device 



At this point channel 1 is open to the handler file and block 

of the handler is in WRKBUF. 

Set up information tables for this device. 



CALL 



STDVTB 



/Set up info in tables for this device 



Determine if this handler is to be loaded into low memory or 
extended memory. 

Get TSX-Plus status flags for device 

Are we never to map this handler? 

Br if handler cannot be mapped 

Is mapping wanted for this handler? 

Br if not 

Does this handler have an internal I/O buff? 

Br if not 

Does this machine have a mapped UNIBUS? 

Br if yes — Don't map this handler 

Does this handler require I/O mapping? 

Br if not 

Is this a Q-bus system with more than 256Kb? 

Br if yes — Don't map this handler 

This handler can be mapped and will be loaded in extended memory 



MOV 


DVFLAG<R4),R0 


BIT 


#DX*NHM, RO 


BNE 


1* 


BIT 


#DX*MPH, RO 


BEQ 


1* 


BIT 


#DX*IBH, RO 


BEQ 


2* 


TSTB 


UBUSMP 


BNE 


1* 


BIT 


#DX*MAP, RO 


BEQ 


2* 


BIT 


#EXTLSI, ICONFG 


BNE 


1* 



TSINIT - 
LDHAND - 

58 
59 
60 
6i 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
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016634 
016640 



016646 
016654 
016656 
016662 



016666 
016672 



016676 



016704 
016706 



005237 
012764 



026427 
101410 
012700 
000137 



005064 
004737 



000124' 2*: 

000001 0000000 



INC NMXHAN ; Count # of mapped handlers 

MOV #1,HANPAR(R4) ; Set flag saying handler should be mapped 



OOOOOOG 020000 

002452 ' 
020566 ' 



OOOOOOG 
017610' 



Make sure size of mapped handler does not exceed SKB 

CMP HANSIZ<R4), #8192. ils mapped handler too big? 

BLOS 8* i Br if not too big 

MOV #HN2BIGiR0 ; Get error message address 

JMP HLERR ; Abort initialization 

This handler must be loaded into low memory 



1*: 



CLR HANPAR<R4) 
CALL LDHNLO 



012604 
000207 



i Close the handler file 

i 

8*: . CLOSE #1 

i 

} Finished 
> 

9*: MOV <SP)+, R4 
RETURN 



; Say this handler is not mapped 
j Load handler into low memory 



i Close the handler file 



i 

I 
I 
c 
c 
< 

i 



i 
i 

i 
i 
i 
i 



TSINIT - 
INSCKl - 

1 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

a£ 1 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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016710 010146 



016712 
016714 
016716 
016722 
016726 
016730 



016734 
016740 
016742 
016746 
016750 
016752 
016756 
016760 
016762 
016764 



016766 
016772 
016774 
017000 
017002 
017006 



017010 
017014 
017020 
017022 
017026 



010201 
005000 
07 1 027 
070027 
010102 
010237 



020237 
001004 
105737 
001044 
000417 
012701 
020221 
001437 
005711 
001374 



013701 
001406 
020261 
001427 

162701 
003372 



012701 
020261 
001003 
056104 
000405 



. SBTTL INSCKl 



Determine if a handler should be installed 



f 



INSCKl is called to determe if a certain device handler should be 
loaded. 

Inputs: 
R2 = RadSO name of the device. 
R4 = Initial DXfxxx flags as specified in TSGEN. 

Outputs: 
C-flag cleared ==> Load the handler. 
C-flag set ==> Do not load the handler. 
R5 = Device name with unit number removed. 
R4 = DX*xxx combined with default flags for the device. 



INSCKl: MOV R1,-<SP) 

Strip off any specified unit number 



000050 
000050 

000146' 



MOV 
CLR 
DIV 
MUL 
MOV 
MOV 



R2> Rl 

RO 

#50, RO 

#50, RO 

Rl, R2 

R2, CURNAM 



Get full device name 

Set for divide 

Split off last digit 

Now correct for divide 

Get device name less 3rd digit 

Set name of handler being loaded 



000176' 
OOOOOOG 



1$: 
2*: 



See if this is a device such as DK, SY, or XT which uie don't 
need to load as a device handler. 

Is device name LD? 

Br if not 

Is standard system LD support included? 

Br if yes — Don't load LD 

Load LD 

Point to table of devices to skip 

Is this a device to be skipped? 

Br if yes 

Reached end of skip list? 

Loop if not 

See if we have already loaded the handler for this device 



CMP 


R2, R50LD 


BNE 


1* 


TSTB 


VLDSYS 


BNE 


5* 


BR 


3* 


MOV 


#SKPDEV, Rl 


CMP 


R2, (Rl) + 


BEQ 


5* 


TBI 


(Rl) 


BNE 


2* 



OOOOOOG 
OOOOOOG 
000002 



MOV NUMDEV, R 1 

BEQ 3* 

4*: CMP R2, PNAME<R1) 

BEQ 5* 

SUB #2, Rl 

BGT 4* 



Get index for last device 

Br if no devices installed yet 

See if this device is already installed 

Br if already installed 

More installed devices to check? 

Loop if yes 



This handler is to be loaded. 

Get default TSX-Plus control flags for this device. 



000342 
000000 

000002 



3*: MOV #DVFLBS, Rl 

6*: CMP R2, DV$NAM(R1) 

BNE 7* 

BIS DV*FLG<R1>,R4 

BR 8* 



; Point to start of table 

; Search for device in the table 

J Br if this is not it 

; Combine default flags 



i 
i 
i 
i 

i 
i 



TSINIT • 
INSCKl ■ 

5S 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
7S 
76 
77 
78 
79 
SO 
81 



— • TSX startup initializ HACRO V05. 04 Thursday 17-Dec-e7 08:39 Page 52-1 
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017030 062701 000004 
017034 020127 000522' 
017040 103765 



017042 032704 OOOOOOG 

017046 001402 

017050 052704 OOOOOOG 



017054 000241 
017056 000401 



017060 000261 



017062 012601 
017064 000207 



ADD 


#DV**SZ,R1 


CMP 


R 1 , #DVFLND 


BLO 


6* 



7*: ADD #DV**SZ>R1 j Point to next entry 

iChecked all entries? 
; Loop if not 

If this is a DMA device* set flag saying buffers must be on 
even byte boundaries. 

8*: BIT #DX*DMA, R4 ;Is this a DMA device? 

; Br if not 
;Set even-buff er~boundary flag 



BIT 


#DX*DMA, R4 


BEQ 


10* 


BIS 


#DX*EBA, R4 



Load this handler 



10*: 



CLC 
BR 



9* 



Do not load this handler 

5*: SEC 

i 

; Finished 

9*: MOV (SP)+, Rl 
RETURN 



; Set flag saying to load the handler 



Set flag saying not to load the handler 



I 
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Page 53 



1 

2 






3 
4 






5 






6 






7 






8 






9 






10 






11 






12 






13 






14 017066 


010146 




15 017070 


010246 




16 017072 


010346 




17 017074 


010446 




IS 017076 


010546 




19 017100 


013746 


000004 


20 017104 

21 

22 


013746 


000010 






23 






24 017110 


010237 


000246 ' 


25 017114 






26 017134 


103011 




27 






28 






29 






30 017136 


105737 


0000000 


31 017142 


001002 




32 017144 


000137 


017446' 


33 017150 


012700 


001636' 


34 017154 


000137 


020566 ' 


35 






36 






37 






38 






39 017160 






40 017216 


103004 




41 017220 


012700 


001700' 


42 017224 


000137 


020566 ' 


43 






44 






45 






46 017230 


012700 


000330 ' 


47 017234 


013701 


000152' 


48 017240 


116101 


OOOOOOG 


49 017244 


120160 


000000 


50 017250 


001020 




51 017252 


123760 


OOOOOOG 000001 


52 017260 


103405 




53 017262 


101020 




54 017264 


123760 


OOOOOOG 000002 


55 017272 


103014 




56 017274 


105737 


OOOOOOG 


57 017300 


001462 





. SBTTL INSCK2 — Additional checking for handler installation 
INSCK2 is called to determine if a device handler should be installed. 



Inputs: 
R2 = RadSO device name <without unit number). 

Outputs: 
C-flag cleared ==> Load this handler. 
C-flag set ==> Do not load this handler. 

If the handler is to be loaded^ its block is in WRKBUF and channel 
number 1 is opened to the handler file. 



INSCK2: 


MOV 


R 1 , - < SP ) 




MOV 


R2, -<SP) 




MOV 


R3, -<SP) 




MOV 


R4, -(SP) 




MOV 


R5, -<SP) 




MOV 


S#4, -(SP) 




MOV 


©#10, -(SP) 



2*: 



1*: 



; Save the bus timeout vector 

i Save illegal instruction vector 

Try to lookup handler file on system disk 

MOV R2, HANNAM+2 i Set the device name for the lookup 
-LOOKUP #AREA, #1, #HANNAM; Try to open the handler file 
BCC 1* ; Br if me found the handler file 

Error — Cannot find handler file 

i Abort or continue on errors? 

j Br if abort on errors 

j Say not to load this handler 

iCan't find handler 

;Abort initialization 

We were able to open the handler file. 
Read in block of handler. 

. READW #AREA, #1, WRKBUF, #256. , #0 ; Read block into WRKBUF 

BCC 3* ;Br if read ok 

MOV #ERHMSG, RO i Error during read 

viMP HLERR 

Determine if the handler is supported under the current RT-11 version 



TSTB 


VINABT 


BNE 


2* 


JMP 


10* 


MOV 


#CFHMSG, RO 


JMP 


HLERR 



3*: 



51*: 



52*: 



MOV 

MOV 

MOVB 

CMPB 

BNE 

CMPB 

BLO 

BHI 

CMPB 

BHIS 

TSTB 

BE(5 



#HVTBL> RO 
WRKBUF, Ri 
H. DSTS(Rl), Rl 
Rl, HV*ID(RO) 
53* 



i Point to table with handler version info 
j Point to buffer with block of handler 
iGet device ID code from handler 
J Compare handler ID code with table entry 
; Br if this entry not for this handler 



SYSVER, HV*VER(RO)i Compare curr RT-11 vers with min acceptable 

52* ; Br if version is not adequate 

54* ; Br if version is ok 

SYSUPD,HV*UPD(RO); Compare update level 

54* i Br if update level is ok 

VINABT i Handler not loadable - abort or continue? 

10* ; Br if continue but don't allow loading 



f 
I 

4 
I 
€ 
I 
€ 

< 
I 
i 
C 
€ 

i 
f 
4 
4 
4 
4 



/ 
^ 
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TSINIT 

INSCK3 -- Additional checking for handler installation 



58 
59 
60 
t)l 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 



017302 
017306 
017312 
Ul/JlC) 
017322 



017324 
017330 
017336 
017340 
017344 
017350 



017356 
017364 
017372 
017376 
017402 
017404 
017406 



017410 
017414 
017416 
017420 
017424 
017432 
017436 
017440 
017444 



017446 
017450 
017452 
017454 
017460 
017464 
017466 
017470 
017472 
017474 
017476 



012700 
000137 
062700 
020027 
103750 



013700 
032760 
001004 
012700 
000137 
016037 



012737 
012737 
013700 
016001 
001402 
005711 
103422 



062700 
005710 
001415 
013746 
012737 
013703 
004710 
012637 
000403 



000261 
000401 
000241 
012637 
012637 
012605 
012604 
012603 
012602 
01260J 
000207 



001744' 
020566 
000003 
000341 ' 



53*: 



MOV 
JMP 
ADD 
CMP 
BLO 



#ERHNDV, RO 
HLERR 

#HV**SZ, RO 
RO, #HVEND 
51* 



; Wrong version of RT for handler 

; Report error and abort 

i Point to next handler version table entry 

i Are there more entries? 

i Loop if more to check 



f 



Check handler sysgen options 



000152' 
OOOOOOG 

002045' 
020566' 
OOOOOOG 



OOOOOOG 



000304' 4*: 



54*: MOV WRKBUF, RO ; Point to buffer with handler block 

BIT #SG*MMU, H. GEN<RO)i Was handler genned with XM support? 

BNE 4* ; Br if yes 

MOV #HSGER, RO ; Error if not XM version of handler 

JMP HLERR 

MOV H. GEN (RO), HGENFL; Save handler sysgen flags for later 

Check the CSR address specified in the handler to see if the 
hardware device for this handler exists. 



015716' 
015716' 
000152' 
OOOOOOG 



000004 
000010 



MOV #TRCSET, e#4 

MOV #TRCSET, @#10 

MOV WRKBUF, RO 

MOV H. CSR<R0),R1 

BEQ 5* 

TST (Rl) 

BCS 13* 



Catch bus timeout traps 

Catch illegal instruction traps 

Point to start of block of handler 

Get address of CSR for device 

Br if no CSR specified 

Is CSR accessible? 

Br if trap occurred while accessing CSR 



OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



5*: 



Execute the device installation code. 

The installation code will set the C-flag if the handler should 

not be loaded. 



i Offset 200 in block 



OOOOOOG 



ADD 


#H. INS, RO 


TST 


SRO 


BEQ 


11* 


MOV 


@#RMON, -<SP) 


MOV 


#MONVEC, @#RMON 


MOV 


RPRVEC, R3 


CALL 


@R0 


MOV 


< SP ) +, e#RMON 


BR 


13* 



Does any installation code exist? 

Br if no driver installation code 

Save RT-11 RMON pointer 

Set TSX-Plus RMON pointer 

Get pointer to Pro vec addr routine 

Call the installation code 

Restore RT-11 RMON pointer 

C-flag now indicates handler load status 



Finished with installation verification. 



000010 
000004 



10*: 


SEC 






BR 


13* 


11*: 


CLC 




13*: 


MOV 


(SP)+, S#10 




MOV 


<SP)+, e#4 




MOV 


<SP)+, R5 




MOV 


<SP)+, R4 




MOV 


(SP)+, R3 




MOV 


(SP>+, R2 




MOV 


(SP)+, Rl 




RETURN 





;Set c-bit for indicating handler 

; should not be installed 

;Clear the c-bit for driver installation 

^Restore illegal instruction vector 

i Restore the bus timeout vector 
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1 

2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



017500 



017500 062737 000002 OOOOOOG 
017506 013700 0000000 



017512 010260 OOOOOOG 
017516 010460 OOOOOOG 



017522 012760 000001 OOOOOOG 



017530 010004 

017532 013700 000152' 

017536 016064 OOOOOOG OOOOOOG 

017544 016064 OOOOOOG OOOOOOG 

017552 016064 OOOOOOG OOOOOOG 



. SBTTL STDVTB — Set up device table entries for a device 

STDVTB is called to set up device table entries for a device whose 
handler is being loaded. 

Inputs: 
R2 = Rad50 name of device (less unit number). 
R4 = DX*xxx device flags for DVFLAG table. 
Block of the handler must be in WRKBUF. 

Outputs: 
R4 - Device table index number for this device. 
NUMDEV = Incremented by 2. 
PNAME<i) = RadSO name of the device. 
DVSTAT<i) = Device status flags. 
DVf-LAG<i) = TSX-Plus control flags. 
HANSIZ<i) = Size of handler (bytes). 
DEVSIZ(i) = Size of device (blocks). 

STDVTB: 

Increment device counter 



ADD #2, NUMDEV 
MOV NUMDEV, RO 

Set up PNAME and DVFLAG. 

MOV R2, PNAME (RO) 
MOV R4, DVFLAG (RO) 



i Say another device added to tables 
i Get device index number 



; Set permanent device name 

iSet up TSX-Plus control flags for the device 



Set HANDSK entry to 1. 

This entry is supposed to hold the absolute block number on the disk where 

block 1 of the handler is located. We set to 1 because all I/O we do 

on behalf of the handler is relative to the base of the handler rather than 

relative to the start of the disk. 

MOV #1,HANDSK(R0) ; Set block # of block 1 of handler file 

Extract parameters from handler block 

MOV RO, R4 i Carry device index in R4 

MOV WRKBUF, RO ; Point to block of handler 

MOV H. SIZ(R0),HANSIZ(R4) ; Set handler size 

MOV H. DVSZ(R0),DEVSIZ(R4) ; Number of blocks on device 

MOV H. DSTS(R0),DVSTAT(R4) ; Set device status flags 

Disable MOUNTs and data caching for certain devices 



017560 032764 OOOOOOG OOOOOOG 

017566 001404 

017570 032764 OOOOOOG OOOOOOG 

017576 001403 

017600 052764 OOOOOOC OOOOOOG 1$: 



BIT 
BEQ 
BIT 
BE(3 
BIS 

Finished 



#DS*DIR, DVSTAT(R4) ils this a directory structured device? 

1* ; Br if not — No mounts allowed 

#DS*NRD, DVSTAT(R4) ; Non RT-11 directory structure (mag tape)? 

9* i Br if not 

#<DX*NMT!DX*NCA>, DVFLAG (R4) {Disable mounts and data caching 



( 
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58 017606 000207 9$: RETURN 



1 
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- Load device handler into low memory 



017610 010346 



017612 005064 OOOOOOG 

017616 010500 

017620 016403 OOOOOOG 

017624 060300 

017626 004737 025312' 



017632 006203 

017634 

017670 103004 

017672 012700 001700' 

017676 000137 020566' 



017702 010564 OOOOOOG 

017706 062764 000006 OOOOOOG 

017714 006303 

017716 060305 



017720 010503 

017722 004737 020474' 



017726 004737 020624 



. SBTTL LDHNLO — Load device handler into loui memory 

LDHNLO is called to load a device handler into low memory. 

Inputs: 
R4 = Device index number. 
R5 = Address of start of free memory area. 

Outputs: 
R5 = Address of neu) start of free memory area. 

LDHNLO: MOV R3, -(SP) 

Determine if we have enough free memory space to read the handler 

CLR HANPAR<R4> ; Say this handler is not mapped 

MOV R5* RO ; Get current top of memory address 

MOV HANSIZ(R4),R3 ; Get size of handler 

ADD R3, RO ; Get address above top of handler 

CALL CHKMEM ; See if handler will fit in memory 

Handler will fit. Read it into memory. 

ASR R3 i Get number of words to read 

. READW #AREA, #1 , R5, R3, #1 

BCC 1* ; Br if read ok 

MOV #ERHMSG> RO i Error reading handler 

JMP HLERR i Abort initialization 

Set address of handler entry point and compute address beyond 
end of the handler. 

1*: MOV R5, HANENT<R4) i Set address of handler entry point 

i (Point to fourth word of handler) 
i Convert handler size to bytes 
; Point beyond end of handler 

Set up table of addresses of support routines at end of handler. 



MOV 


R5, HANENT<R4) 


ADD 


#6, HANENT(R4> 


ASL 


R3 


ADD 


R3, R5 



MOV 
CALL 



R5, R3 
STHNPV 



iGet address past end of handler 
/Set up pointer vector in handler 



017732 012603 
017734 000207 



If handler has any load-time exectuion code* run it now 

CALL DOHNLC ; Run any load-time code for handler 

Finished 

MOV (SP)+, R3 

RETURN 



/ 
^ 



TSINIT - 
QETHNH - 

1 

3 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



— TSX startup initializ MACRO 

— Load handlers into extended 



017736 010446 



017740 012704 000002 



017744 005764 OOOOOOG 
017750 001402 



017752 004737 017774' 



017756 062704 000002 
017762 020437 OOOOOOG 
017766 101766 



017770 012604 
017772 000207 
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memory 

. SBTTL GETHNH — Load handlers into extended memory 

GETHNH is called to load those handlers that can be placed in extended 
memory. The status tables for these devices have already been set up 

by GETHNL. 

Inputs: 
R5 = 64-byte block number of top of free memory area. 

Outputs: 
R5 = 64-byte block number of neuj top of free memory area. 



GETHNH: MOV 



R4, -<SP> 



Begin looking for handlers that are to be loaded into extended memory, 
GETHNL stored a non-zero (but meaningless) value in the HANPAR entry 
for each handler that is to be mapped. 

MOV #2, R4 ; Get index for first device entry 

See if this device has a mapped handler 



1$: 



TST 
BEQ 



HANPAR (R4) 
2* 



j Is this handler mapped? 
i Br if not 



We found an entry for a device with a mapped handler. 
Load the handler. 

CALL LDHNHI ; Load a mapped handler 

Look for more mapped handlers 



2*: 



ADD #2, R4 
CMP R4, NUMDEV 
BLOS 1* 



i Increment device index 
iChecked all devices? 
J Loop if not 



Finished 



MOV <SP)+, R4 
RETURN 



TSINIT - 
LDHNHI ~ 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 
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017774 
017776 
020000 
020002 



23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



020004 
020012 
020020 
020040 
020042 
020046 



020052 
020056 
020112 



010146 
010246 
010346 
010446 



016437 

016437 

103004 
012700 
000137 



013702 

016237 



0000000 000246' 
0000000 000146' 



001636' 
020566' 



000152' 
OOOOOOG 000304' 



020120 012764 000006G OOOOOOG 



020126 
020132 
020134 
020140 
020142 
020146 
020152 
020156 
020160 
020164 
020170 



020176 
020200 
020204 
020206 
020212 



016402 
005202 
042702 
010200 
062700 
072027 
060037 
160005 
010564 
010537 
012737 



010203 
020327 
101402 
012703 
160302 



OOOOOOG 

000001 

000077 
177772 
OOOOOOG 

OOOOOOG 
000126' 
000001 000142' 



. SBTTL LDHNHI — Load device handler into extended memory 
LDHNHI is called to load a device handler into extended memory. 



Inputs; 
R4 = Device index number. 
R5 = 64-byte block number of top of free memory area. 

Outputs: 
R5 = 64-byte block number of new top of free memory area. 



LDHNHI: MOV 
MOV 
MOV 
MOV 



Rl, -<SP) 
R2, -(SP) 
R3, -(SP) 
R4, -(SP) 



8*: 



Open channel 1 to the handier file. 

MOV PNAME<R4), HANNAM+2 ; Set the device name for the lookup 
MOV PNAME<R4)> CURNAM; Set name in case we have an error 
.LOOKUP #AREA, #1, #HANNAMi Try to open the handler file 
BCC 8* ; Br if we found the handler file 

MOV #CFHMSG, RO ; Can't find handler 
JMP HLERR ; Abort initialization 

Read block of the handler file and extract some information 

MOV WRKBUF, R2 i Get address of work buffer 
. READW #AREA, #1,R2, #256. , #0 ; Read block of handler 
MOV H. GEN (R2),HGENFLj Save handler sysgen flags 

Set virtual address of handler entry point 

MOV #VPAR5+6> HANENT<R4) i Set virtual addr of handler entry point 

Get information about the size of the handler and determine the 
address in extended memory where the handler is to be loaded. 



MOV 
INC 
BIC 
MOV 
ADD 
ASH 
ADD 
SUB 
MOV 
MOV 
MOV 



HANSIZ(R4>,R2 



R2 




#1, 


R2 


R2, 


RO 


#63. . RO 


#-6, RO 


RO, 


MHNSIZ 


RO, 


R5 


R5, 


HANPAR < R4 ) 


R5, 


HMAP 


#1, 


FILBLK 



;Get size of handler (bytes) 
iMake sure handler size is even 



i Round up to # 64-byte blocks 

i Get # 64-byte blocks for handler 

i Accumulate total space for mapped handlers 

i Reserve room for handler 

; Set mapping value for handler 

;Set initial PAR base for handler 

; Set # of block to read from file 



Begin loop to read handler into memory 



001000 
001000 



1*: 



2*: 



MOV 


R2, R3 


CMP 


R3, #512. 


BLOS 


2* 


MOV 


#512. ,R3 


SUB 


R3, R2 



i Get remaining size of handler 

; Compare with max we can read at one time 

; Br if we can read remainder of handler 

i Read one block 

; Reduce amt of handler left to read 



f 
I 
I 

i 

i 
i 
i 
i 
€ 
€ 
4 

i 
i 
i 
i 
i 
i 



i 



( 



TSINIT — 
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59 
60 
6i 
62 
63 
64 
65 
66 
67 
63 
69 
70 
71 



TSX startup initializ MACRO V05. 04 Thursday 17-Dec-B7 08:39 Page 57-1 
Load device handler into extended memory 



73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



020216 
020222 
020256 
020260 
020264 



020270 
020274 
020302 
020306 
020314 
020322 
020326 
020330 
020336 
020340 
020342 
020346 
020350 
020356 
020364 
020370 



020376 
020404 
020410 
020412 



020414 
020420 
020424 
020430 
020434 



020440 
020444 
020450 



020454 



013701 



000152 



103004 

012700 001700 

000137 020566 



012700 0000000 



3*: 



013746 
013737 
052737 
105737 
001403 
052737 
012120 
077302 
105737 
001403 
042737 
042737 
012637 



062737 
005237 
005702 
001271 



012703 
066403 
004737 
004737 
004737 



010537 
004737 
013705 



OOOOOOG 

000126' OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 



4*: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 5*: 
OOOOOOG 



Read next block of handler 

ASR R3 i Get # mords to read 

iiOV WRKBUF, Rl ; Get address of buffer for read 

. READW #AREA, #1, Rl, R3, FILBLK ; Read a block 

BCC 3* i Br if read ok 

IiOV #ERHMSG* RO ; Get error message 

JliP HLERR ; Abort initialization 

Move the code we just read into the XM area for the handler 

Get virtual address of mapped region 
** Disable interrupts ** 

Save current mapping of PAR 5 
Set up mapping to get to XM area 
Enable memory management 
Does machine have > 256KB? 
Br if not 

Enable extended memory addressing 
Move from WRKBUF to XM region 
Loop till all moved 
Does machine have > 256KB? 
Br if not 

Disable extended memory addressing 
Enable memory management 
Replace PAR 5 mapping 
** Enable interrupts ** 



MOV 


#VPAR5, RO 


DISABL 




MOV 


@#KPAR5, -(SP) 


MOV 


HMAP, @#KPAR5 


BIS 


#MMENBL. @#SROMMR 


TSTB 


MEM256 


BEQ 


4* 


BIS 


#EMMAP, @#SR3MMR 


MOV 


<R1)+, <R0)+ 


SOB 


R3, 4* 


TSTB 


MEM256 


BEQ 


5* 


BIG 


#EMMAP, e#SR3MMR 


BIC 


#MMENBL, e#SROMMR 


MOV 


(SP)+, @#KPAR5 


ENABL 





See if there is more to read 



000010 
000142' 



000126 



ADD 
INC 
TST 
BNE 



#8. , HMAP 

FILBLK 

R2 

1* 



; Increase XM region base 
/Increment file block number 
i Is there more to read7 
j Loop if more to read 



OOOOOOG 
OOOOOOG 
021324' 
020474 ' 
021400' 



000134 
020624 
000134 



We have finished moving the handler into its XM region. 

Set up addresses of system routines in a vector at the end of the handler 

Get virtual address of handler base 

Get virtual address beyond end of handler 

; i Map KPAR5 to the handler 

; ; Set up handler pointer vector 

Restore mapping 



MOV 


#VPAR5, R3 


ADD 


HANSIZ<R4),R3 


CALL 


HANMAP 


CALL 


STHNPV 


CALL 


HANUMP 



i 
i 



If handler has any load-time code^ run it 



now 



MOV 

CALL 

MOV 



R5, FMEMHI 
DOHNLC 
FMEMHI, R 5 



Close the handler file 



. CLOSE #1 



iSet addr of top of free memory area 
; Run any load-time code for handler 
;Get new top of free memory address 



;Close the handler file 



Fini shed 
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115 
116 
117 

lis 

119 



020462 
020464 
020466 
0204 /O 
020472 



012604 
012603 
012602 
01k'60X 
000207 



MOV 


<SP)+, 


R4 


MOV 


<SP)+, 


R3 


MOV 


<SP)+, 


R2 


MOV 


<SP>+, 


Rl 


RETURN 










TSINIT - 
STHWPV - 

1 
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3 

4 

5 

6 

7 

8 

9 
10 

11 020474 
12 
13 
14 

15 020476 

16 020502 

17 020506 

18 020514 

19 020516 

20 020522 

21 020530 

22 020532 

23 020536 

24 020542 

25 020546 

26 020552 

27 020556 
28 

29 
30 

31 020562 
020564 



. SBTTL STHNPV 



Initialize pointer vector in a handler 



3 



01034<l 



012743 
012743 
032737 
001402 
012743 
032737 
001402 
012743 
012743 
012743 
012743 
012743 
012743 



012603 
000207 



STHNPV is called to initialize the pointer vector at the end of a 
handler which provides the addresses of various system routines to the 
handler. 

Inputs; 
R3 = Address beyond the end of the handler. 
HGENFL = Sysgen option flags for the handler being loaded. 

STHNPV: NOV R3, -<SP) 

Set up addresses in the pointer vector 



OOOOOOG 
OOOOOOG 
0000000 000304 

OOOOOOG 
OOOOOOG 000304 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



>*: 



3*: 



MOV 
MOV 
BIT 
BEQ 
MOV 
BIT 
BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

Finished 



MOV 
RETURN 



#FORK, -<R3) 
#INTEN, -<R3) 
#S0* I OT. HGENFL 
2* 

#I0TIMR,-<R3) 
#SG*ELG, HGENFL 
3* 

#ERRLOG, -(R3) 
#PTWRD, -(R3) 
#PTBYT, -<R3) 
#GTBYT, ~<R3) 
#MPPHY, -<R3) 
#RELOC, -(R3) 



<SP>+, R3 



Address of fork routine 

Address of inten routine 

Does handler tuant timeout support? 

Br if not 

Set address of timeout support routine 

Does handler uiant error logging support? 

Br if not 

Set address of error logging routine 
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1 
2 
3 
4 
5 
6 

/ 

S 

9 

10 

11 



Error occured while loading device handler. 

RO = error message address; CURNAM = device name. 



020566 
020570 
020576 
020602 
020606 
020612 
020620 



010001 



013700 
004737 



HLERR: 



000146' 
025502' 



000137 004250' 



MOV 


RO, Rl ; 


. PRINT 


#TSXHD J 


. PRINT 


Rl ■> 


MOV 


CURNAM, RO ; 


CALL 


PRTR50 ■> 


. PRINT 


#CRLF 


JMP 


INISTP i 



SAVE ERROR MESSAGE ADDRESS 
PRINT ERROR MESSAGE HEADING 
PRINT ERROR MESSAGE 
GET RAD50 DEVICE NAME 
PRINT DEVICE NAME 

ABORT INITIALIZATION 



\ 
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. SBTTL DOHNLC 



Execute and handler load/fetch code 



3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


020624 


010146 




14 


020626 


010246 




15 


020630 


010346 




16 


020632 


010446 




17 


020634 


010546 




18 








19 








20 








21 


020636 


016405 


OOOOOOG 


22 


020642 


004737 


021324' 


23 


020646 


016500 


000004 


24 


020652 


004737 


021400' 


25 


020656 


020027 


000240 


26 


020662 


103516 




27 


020664 


020027 


000277 


28 


020670 


101113 




29 


020672 


132700 


000004 


30 


020676 


001510 




31 








32 








33 








34 








35 


020700 


013702 


000152' 


36 


020704 






37 


020740 


022227 


031066 


38 


020744 


001065 




39 


020746 


016203 


000004 


40 


020752 


001462 




41 








42 








43 








44 








45 


020754 


020327 


001000 


46 


020760 


103424 




47 


020762 


010302 




48 


020764 


072227 


177767 


49 


020770 


042702 


177400 


50 


020774 






51 








52 








53 








54 


021032 


010437 


000144' 


55 


021036 


042703 


177000 


56 


021042 


010300 




57 


021044 


063700 


000152' 



If the handler being loaded has any Load-time execution code* read it 
into our work buffer and execute it now. 

Inputs: 
R4 = Device index number of handler that is being loaded. 

Outputs: 
C-flag is set on return if load code signals an error during its 
execution. 



DOHNLC: 


MOV 


R1>-<SP) 




MOV 


R2, -<SP) 




MOV 


R3, -(SP) 




MOV 


R4, -(SP) 




MOV 


R5, -<SP) 



MOV 


HANENT(R4),R5 


CALL 


HANMAP 


MOV 


4(R5),R0 


CALL 


HANUMP 


CMP 


RO. #240 


BLO 


7* 


CMP 


RO, #277 


BHl 


7* 


BITS 


#4, RO 


BEQ 


7* 



Examine 1st word of handler to see if it could have any load-time code. 

Get address of handler entry point 

; > Map Kpar5 to handler if mapped handler 

; i Get Ist instruction located at 4 in handler 

Restore normal mapping 

Is it a NOP? 

Br if can't be any load code 

Br if can't be any load code 
Is there load code? 
Br if not 

Handler may have load code. 

Read block of handler and get offset to load code. 

MOV WRKBUF, R2 ; Get addr of our work buffer 

. READW #AREA, #1,R2, #256. , #0 i Read block of handler 

CMP <R2)+, #'^RHAN ; Is this a new type handler? 

BNE 7* i Br if not 

MOV 4(R2),R3 i Get offset to load code 

BEQ 7* ; Br if there is none 

There is load-time code. 

Read into WRKBUF the portion of the handler with the load code. 

i Is load code in block of handler? 
> Br if yes 

j Get offset to start of load code 
; Convert to a block number 
;Clear all but block number 
.READW #AREA,#1, WRKBUF, #512. ,R2 i Read 2 blocks from handler file 

The load code is now in WRKBUF. Set up and execute it. 

1*: MOV R4, CURDEV i Save current device index number 

Get offset within block of load code entry pt 
Get entry point offset 
Add base address 



CMP 


R3, #1000 


BLO 


1* 


MOV 


R3, R2 


ASH 


#-9. , R2 


BIC 


#•-^0377, R2 



MOV 


R4, CURDEV 


BIC 


#'^C777, R3 


MOV 


R3, RO 


ADD 


WRKBUF, RO 
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58 

59 

60 

6i 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

70 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 



021050 
021054 
021060 
021064 
021070 
021072 
021076 
021102 
021104 



021106 
021114 
021120 



021124 
021132 
021136 



021140 
021142 
021144 
021146 
021150 
021152 



013701 
012702 
012703 
015705 
060405 
004737 
012704 
004710 
103407 



012737 
004737 
000241 
000406 



012737 
004737 
000261 



012605 
012604 
012603 
012602 
012601 
000207 



OOOOOOG 
OOOOOOC 
000004 
OOOOOOt; 

021324' 
021154' 



MOV 


RPRVECRl 


MOV 


#MAXDEV*2, R2 


MOV 


#4, R3 


MUV 


#HANENT, R5 


ADD 


R4> R5 


CALL 


HANMAP 


MOV 


#LDREAD, R4 


CALL 


(RO) 


BCS 


2* 



Fetch/load code ran ok. 
Turn off handler mapping. 



001400 
021400' 



OOOOOOG 



1%: 



MOV 
CALL 
CLC 
BR 



#1400, e#KPAR6 
HANUMP 

9* 



Get pointer to GETVEC routine for Pro 
Get 2*# entries in device tables 
Set code saying this is load code 
Point to handler entry address vector 
Point to entry cell for this handler 

; Map KparS to handler if it is a mapped 

i Get pointer to Read routine 

;Execute the load code 

i Br if handler load code signaled an error 



; i Restore original mapping for RT-11 

Unmap the handler 

Clear the carry flag for return 



Error occurred in fetch/load code 



001400 OOOOOOG 2$; 
021400' 



9*: 



MOV 

CALL 

SEC 

Finished 

MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



#1400, e#KPAR6 
HANUMP 



; i Restore original mapping for RT-11 

Unmap the handler 

Set the carry flag for return 



<SP>+, R5 
<SP)+, R4 
<SP)+, R3 
(SP)+, R2 
(SP)+,R1 



TSINIT 
LDREAD 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
U 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



021154 
021156 
021160 



021162 
021166 
021170 
021174 
021200 
021204 
021210 



021256 
021262 



021266 
021272 
021276 
021302 
021306 
021310 



021314 
021316 
021320 
021322 



010046 
010446 
010004 



105737 
001402 
013746 
013746 
013746 
013746 
012737 



OOOOOOG 

0000000 
OOOOOOG 
OOOOOOG 
OOOOOOG 
001400 



021216 004737 021400' 



021254 103420 



013704 
004737 



012637 
012637 
012637 
105737 
001402 
012637 



000241 
012604 
012600 
000207 



000144' 
021324' 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



. SBTTL LDREAD 



Perform I/O for handler load code 



This routine performs Read operations for handler load code. 
It simulates the operation of the bootstrap read routine. 
When called, Channel 1 must be open to the handler file. 

Inputs: 
RO = Block number within handler file to be read. 
Rl = Number of words to read. 
R2 == Buffer address 

Outputs: 
C-flag is set if a read error occurs 



LDREAD: MOV 
MOV 
MOV 



RO, -<SP) 
R4, -<SP) 
RO, R4 



, , , 

> t i 



; Get starting block number 
Save current mapping information 



1$: 



OOOOOOG 



TSTB MEM256 

BEO 1* 

MOV @#SR3MMR,-(SP) 

MOV e#SROMMR,-(SP) 

MOV ®#KPAR5, -<SP) 

MOV e#KPAR6, -<SP) 

MOV #1400, @#KPAR6 

Turn off handler mapping 

CALL HANUMP 



i Does machine have > 256? 

J Br if not 

i Save extended memory address register 

i Save memory mapping 

; Save current KPAR5 mapping 

; Save current KPAR6 mapping 

{Restore original mapping for RT-11 



; Turn off handler mapping 



Read the requested data from the handler 

. READW #AREA, #1, R2, R1,R4 i Read the blocks 



BCS 9* 
Restore handler mapping 



MOV 
CALL 



CURDEV, R4 
HANMAP 



Restore mapping information 



MOV 


< SP ) +, S#KPAR6 


MOV 


(SP)+, @#KPAR5 


MOV 


<SP)+, @#SR0MMR 


TSTB 


MEM256 


BEQ 


2* 


MOV 


(SP)+, e#SR3MMR 


> 

i Finished 




2*: CLC 




9* : MOV 


(SP)+, R4 


MOV 


<SP)+, RO 


RETURN 





i Br if read error 



i Get current device index 
; ; ; Map KparS if necessary 



i Restore KPAR6 mapping 

i Restore KPARS mapping 

i Restore memory mapping 

; Does machine have > 256? 

; Br if not 

i Restore extended memory address register 



i Signal success on return 



c 



TSINIT 
HANMAP 
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t 
5 
6 
7 
8 
9 
10 
U 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



021324 



021324 



021332 012737 0000000 OOOOOOG 



021340 005764 OOOOOOG 
021344 001403 



. SBTTL HANMAP — Set up KPAR5 to access a mapped handler 

This routine is called to determine if a handler is mapped and if so 

to turn on mapping and set up KPAR5 to access the mapped handler. 

If the handler is not mapped* mapping is not turned on and KPAR5 is 

not altered. 

Interrupts are left disabled by this routine. 

In addition to setting up mapping* this routine also changes the RMON 

pointer to point to the TSX-Plus simulated RMON vector. 

Inputs: 
R4 = Device index number 

HANMAP : 

Disable interrupts 

DISABL jjiDisable interrupts 

Change RMON pointer to point to TSX-Plus vector 

MOV #MONVEC, e#RMON ; ; ; Say TSX-Plus is the monitor 
See if this handler is mapped 



TST HANPAR<R4) 
BEQ 9* 

This handler is mapped. 

Set up mapping to access it. 



;;;I5 this handler mapped? 
i i i Br if not 



021346 016437 OOOOOOG OOOOOOG 

021354 052737 OOOOOOG OOOOOOG 9*: 

021362 105737 OOOOOOG 

021366 001403 

021370 052737 OOOOOOG OOOOOOG 



MOV 

BIS 

TSTB 

BEQ 

BIS 



HANPAR<R4),@#KPAR5i i iMap KPAR5 to the handler code 



#MMENBL, @#SROMMR; 
MEM256 ; 

10* i 

#EMMAP, e#SR3MMR ; 



i Enable memory mapping 

/Does machine have > 256KB? 

i Br if not 

j Enable extended memory addressing 



021376 000207 



021400 



Fini shed 

10$: RETURN 

.SBTTL HANUMP — Turn off memory mapping to a handler 

This routine is the companion to HANMAP. It turns off memory mapping 
and restores KPAR5 to its normal mapping value. 

Enter with interrupts disabled. Interrupts are enabled on return. 
This routine also changes the RMON pointer back to RT-11. 

HANUMr^ : 

Turn off memory management 



021400 105737 OOOOOOG TSTB 

021404 001403 BEQ 

021406 042737 OOOOOOG OOOOOOG BIC 

021414 042737 OOOOOOG OOOOOOG 1$: BIC 

021422 012737 001200 OOOOOOG MOV 



MEM256 i 

1* ; 

#EMMAP, e#SR3MMR i 
#MMENBL> e#SROMMRj 
#1200, @#KPAR5 i 



; Does machine have > 256KB? 

; Br if not 

; Turn off extended memory addressing 

; Turn off memory mapping 

; Reset KPAR5 to its normal mapping 



c 

I 
i 
I 

I 
i 

i 
i 
i 

€ 
€ 
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58 

59 

60 

(bi 02 1 430 13737 000046" OOuuOoO 

62 

63 

64 

65 021436 

66 

67 

68 

69 021444 000207 



Restore RMON pointer to RTll 

MUV RTMNVC, @#RMON i i ; Reset RMON pointer 
Enable interrupts 

ENABL j Enable interrupts 

Finished 

RETURN 



TSINIT - 
FNDHRB - 

1 
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24 
25 
26 



5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 

10 021446 
19 
20 
21 

22 021450 

23 021452 
021456 
021460 
021462 

27 021464 

28 021466 

29 021470 

30 021474 

31 021476 

32 021502 

33 021504 

34 021512 

35 021514 

36 021520 
37 

38 
39 
40 

41 021522 

42 021524 

43 021526 

44 021532 

45 021540 

46 021546 

47 021550 
48 

49 
50 
51 
52 
53 
54 

55 021554 

56 021556 



010246 



005002 

013701 

005721 

005711 

00 1 002 

010102 

000412 

02 1 1 27 

001412 

021561 

001004 

026561 

001417 

062701 

000757 



010201 
001410 
011561 
016561 
063761 
000261 
000401 



021552 000241 



. S13TTL FNDHRB — Try to find a handler global region 

This routine is called to try to locate an allocated XM region with 

a specified name. 

If a region control block with the specified name cannot be found* 

the address of a free one is returned and the specified name is stored 

into the free block. 

Inputs: 
R5 = Pointer to 2-word cell containing RadSO name of region to be found. 

Outputs: 
C~flag cleared =0 Found the specified RGB. 

Rl = Address of the RGB 
C"flag set ==> Could not find the specified RGB. 

Rl = Pointer to a free RCB or if no available RGB's. 

FNDHRB: MOV R2. -(SP) 

Search for specified RCB and also remember if we see a free RCB 



i 

€ 



OOOOOOG 



177777 

000006 

000002 000010 

000012 



CLR R2 

MOV HANRCB, Rl 

TST <R1)+ 

1*: TST (Rl) 

BNE 2* 

MOV R 1 , R2 

BR 3* 

2*: CMP (Rl),#~l 

BEQ 4* 

CMP <R5),6<Ri) 

BNE 3* 

CMP 2(R5),10<R1> 

BEQ 6* 

3*: ADD #12, Rl 

BR 1* 



Say no free RCB found 
Point to start of RGB area 
Skip over -1 word at front 
What is the status of this RGB 
Br if this is not a free RGB 
Remember address of a free RGB 



i Are we at the end of the list? 

; Br if yes 

i Compare the names 

; Br if don't match 

; Compare 2nd half of name 

i Br if found the RGB we were searching for 

i Point to the ne.xt RCB 

i Continue searching 



We could not find the specified RCB. 

If there was a free one, initialize the name. 



4*: 



000006 

000002 000010 

000144' 000010 



5$: 



MOV 
BEQ 
MOV 
MOV 
ADD 
SEC 
BR 



R2, Rl 
5* 

<R5),6<R1) 
2(R5), 10<R1) 
CURDEV, 10<R1) 

9* 



012602 
000207 



We found the RCB 

6*: CLC 

Finished 

9$: MOV (SP)+, R2 
RETURN 



Was there a free RCBT' 

Br if not 

Set name in the RGB 

(2nd word of name) 

Make name unique to device 

Signal that we did not find the RGB 



Signal success on return 



TSINIT 
HAN X MR 
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1 
o 



5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 



021560 010046 



021562 013700 000134' 

021566 163700 000136' 

021572 020200 

021574 101006 



021576 160237 000134 

021602 013701 000134 

021606 000241 

021610 000402 



021612 010002 
021614 000261 



021616 012600 
021620 000207 



. BBTTL HANXMR — Allocate XM region during handler load 

This routine can be called by a handler as its is being loaded to 
allocate an XM region for the handler. 

Inputs: 
R2 = Number of 64-byte units needed for XM region 

Outputs: 
C~flag cleared ==> Successfully allocated a region 

Rl = 64~bytB address of base of allocated region 

R2 = Requested size 
C-flag set ==> Could not allocate the region 

R2 = Largest available region size 

Notes: FMEMLO and FMEMHI are used by this routine to indicate the 
bottom and top of the free memory area that can be allocated. 
The allocation is done from the top of free memory downward. 
FMEMHI is updated to have the new top of free memory after the 
allocation has been done. 



HANXMR: MOV 



RO, -<SF) 



Get the total amount of free memory space available now 
and see if the requested region can be allocated. 

i Top of free memory 

J -Base of free memory 

; Do we have room for the requested region? 

; Br if not 

There is room for the region so allocate it from the top of memory 



MOV 


FMEMHI, RO 


SUB 


FMEMLO, RO 


CMP 


R2, RO 


BHI 


8* 



SUB 
MOV 
CLC 
BR 



R2, FMEMHI 
FMEMHI, Rl 

9* 



{Allocate the region 

i Return the address of the base of the region 

; Signal success on return 



We are not able to allocate the region. 

Return with C-flag set and the size of the largest possible region in R2. 



8$: 



MOV 
SEC 

Finished 



RO, R2 



i Get the size of the largest possible region 
i Signal failure on return 



9*: 



MOV 
RETURN 



(SP)+, RO 



TSINIT — TSX startup initializ MACRO V05. 04 Thursday 17-Dec-87 08:39 Page 65 
HANXMR — Allocate XM region during handler load 



i 



t 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



.IF NE, <PR0ASM-1> ilf assembling for PDP-11 

. SBTTL SETMIO -- Set up information about mapped devices 



SEiMiU IS called to set up information about which devices have to have 
their I/O mapped through system buffers. I/O mapping is done for DMA 
devices with 18-bit controllers being used on Q-bus systems with more 
than 256Kb of memory. 
The DX*MAP flag is set in the DVFLAG word for devices that require mapping. 

Inputs: 
R5 = Pointer to low-memory free area 

Outputs: 
MIOFLAG = 0==>I/0 mapping not required for any device; 

l==>I/0 mapping required for some device. 
R5 = Pointer to new low-memory free area. 

SETMIO: MOV R1,-<SP) 

Determine if this machine requires mapping at all 

TST #MI0DBG ; Are we debugging mapped I/O system? 

BNE 2* ; Br if yes 

BIT #EXTLSIi ICONFG ; Is this a Q-bus machine with more than 256Kb? 

BNE 2* ; Br if yes 

This is not a Q-bus system with more than 256Kb. 
Mapping is not required at all. 

MOV #2»R1 i Get initial device index number 

1*: BIG #DX$MAP, DVFLAG <R1> ; Clear mapped-I/O flag 

ADD #2>R1 iGet next device index 

CMP R1,NUMDEV ; More to do? 

BLOS 1* ;Br if yes 

BR 9* 

This is a Q-bus system with more than 256Kb. 
See if any devices have requested mapped I/O. 

Clear composite flag word 
Initialize device index number 
Combine flags from all devices 
Get next device index number 
Checked all devices? 
Br if not 

Does any device require mapping? 
Br if not 



2*: 


CLR 


RO 




MOV 


#2, Rl 


3*: 


BIS 


DVFLAG(R1)>R0 




ADD 


#2, Rl 




CMP 


RliNUMDEV 




BLOS 


3* 




BIT 


#DX*MAP, RO 




BEQ 


9* 



I/O mapping is required 
INCB MIOFLG 



Remember that mapping is required 



Zero the area where we will build the control structures 

MOVB VMIOBF, Rl iGet # buffers wanted 

MUL #MI**SZ>R1 i Times size for each control block 

ADD #MI0NWB*MW**S2,Rli Add space for MIO wait blocks 



TSINIT - 
HANXMR - 

58 

59 

60 

6i 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 
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4*: 



ASR 
MOV 
CLR 
HUB 



Rl 

R5, RO 
(R0) + 
Rl,4* 
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J Get # ujords to zero 

i Get pointer to start of arsa 

i Zero the entire area 



Allocate and initialize the control structures 



5*: 



6*: 



7f : 



MOV 

MOVB 

MOV 

ADD 

DEC 

BLE 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

MOV 

SOB 

ADD 

Finished 



R5. MIOBHD 

VMIOBF, RO 

R5, Rl 

#MI**SZ,R1 

RO 

6* 

R1,MI*LNK<R5) 

R1,R5 

5* 

Rl, R5 

R5, MIOWHD 

#MI0NWB-1>R0 

R5, Rl 

#MW**SZ,R1 

Rl, MW*LNK<R5) 

R1,R5 

RO, 7* 

#MW**SZ, R5 



021622 000207 



9*: MOV (SP)+, Rl 
RETURN 

•IFF ; NE, <PR0ASM-1> 

Define dummy routine for Pro 

SETMID: RETURN 

. ENDC J NE, <PR0ASM-1> 



Start of area for I/O mapping control blks 

Get # buffers wanted 

Get pointer to current control block 

Get pointer to next control block 

Need to link more together? 

Br if not 

Set pointer to next control block 

Advance pointer to next block 

See if more to do 

Set pointer past last block 

Start of wait blocks 

Get # wait blocks wanted - 1 

Get pointer to current block 

Get pointer to next block 

Set pointer to next wait block 

Advance pointer to next block 

Loop if more to allocate 

Allocate space for last block (with O link) 



i 
i 
i 
i 
i 
i 
i 



TSINIT - 


— TSX s 


tartup initializ 


OVLPOS ■ 

1 

2 
3 


— Determine which overl 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 


021624 


010146 




16 


021626 


010246 




17 


021630 


010346 




IS 


021632 


010446 




19 


021634 


010504 




20 








21 








22 








23 


021636 


004737 


022034 ' 


24 








25 








26 








27 








20 


021642 


062704 


000077 


29 


021646 


042704 


000077 


30 


021652 


010437 


000140' 


31 


021656 


012702 


000576' 


32 


021662 


005762 


000000 


33 


021666 


001423 




34 


021670 


016200 


000004 


35 


021674 


016000 


OOOOOOG 


36 


021700 


012701 


001026' 


37 


021704 


020021 




38 


021706 


001404 




39 


021710 


020127 


001034' 


40 


021714 


103773 




41 


021716 


000407 




42 


021720 


005262 


000002 


43 


021724 


016200 


000000 


44 


021730 


072027 


000006 


45 


021734 


060004 




46 


021736 


062702 


000006 


47 


021742 


020237 


001024' 


48 


021746 


103745 




49 








50 








51 








52 


021750 


020427 


025474 ' 


53 


021754 


103021 




54 


021756 


012705 


025556' 


55 


021762 


160405 




56 


021764 


072527 


177772 
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. SBTTL OVLPOS — Determine which overlays go over TSINIT 

OVLPOS is called to determine which system overlays are to be placed 
over the TSINIT code (specifically, between SOVLBAS and INITOP). 

Inputs: 
R5 = Base address in TSINIT where overlays may be loaded. 

Outputs: 
Overlay segment information is set up in OSTABL. 

OS*FLG(seg) = 0==«>Load seg into high memory; l==>Load over TSINIT. 
OVLBAS = Address of location within TSINIT where overlays start, 
R5 = Pointer past last overlay loaded over TSINIT. 



OVLPOS: 


MOV 


R 1 , - ( SP ) 




MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


R4, -(SP) 




MOV 


R5, R4 



; Get address where we may load overlays 

Build the table that holds information about the overlays 

CALL OVLBLD ; Build overlay information table 

First determine how much space will be used by those overlays that are 
forced to be loaded over TSINIT. 

; Bound address to 64-byte boundary 

Remember address where we load overlays 
Point to start of table 

1«: TST 0S*SIZ(R2) : Is this overlay to be loaded? 

Br if not 

Point to linker-built entry 
Get RadSO segment ID 
Point to table of overlays to go over TSINIT 

6$: CMP RO, (Rl)+ i Must this overlay go over TSINIT? 

Br if yes 

End of low-overlay table? 
Br if not 

This overlay is not forced over TSINIT 
Set flag saying load over TSINIT 
Get # 64-byte blocks needed for overlay 
Get # bytes needed for overlay 
Advance address within TSINIT 
Point to entry for next segment 
Have we finished? 
Loop if not 

Determine how much memory space is available in TSINIT for other overlays 

J Any space left for other overlays^' 

i Br if not 

i Point to top of overlay area 

; Total space available for overlays 

i Convert to # 64--byte blocks 



4f : 



2*: 



ADD 


#63. , R4 


BIC 


#77, R4 


MOV 


R4, OVLBAS 


MOV 


ttOSTABL, R2 


TST 


0S*SIZ(R2) 


BEQ 


2« 


MOV 


0S*0VL(R2),R0 


MOV 


0. ADR(R0),R0 


MOV 


#L0W0VL.R1 


CMP 


RO, (Rl) + 


BEQ 


4* 


CMP 


R1,#LDWEND 


BLO 


6* 


BR 


2* 


INC 


0S*FLG(R2) 


MOV 


0S*SIZ(R2),R0 


ASH 


#6, RO 


ADD 


RO, R4 


ADD 


#0S**SZ, R2 


CMP 


R2, OSLAST 


BLO 


1* 



CMP 


R4>#INIT0P -50 


BHIS 


9* 


MOV 


#INIT0P,R5 


SUB 


R4, R5 


ASH 


#-6, R5 
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58 
59 
60 
<bi 

62 021770 

63 021774 

64 021776 

65 022002 

66 022006 

67 022010 

68 022014 

69 022016 
70 

71 
72 

73 022020 

74 022022 

75 022024 

76 022026 

77 022030 

78 022032 



004737 
103411 
005262 
016200 
160005 
072027 
060004 
000764 



010405 
012604 
012603 
012602 
012601 
000207 



023226 

000002 
000000 

000006 



9*: 



Hous begin 1 
We do this 
the overlay 



3*: 



OOP which determines which other overlays go over TSINIT. 
in the order of largest to smallest to try to fill 
area as completely as possible. 



Try to find largest overlay that will fit 
Br if no more overlays will fit 
Remember to load over TSINIT 
RO ; Get # 64-byte blocks needed for overlay 
Reduce remaining free space in TSINIT 
Get # bytes needed for overlay 
Advance overlay address in TSINIT 
See if we can find more segments to load 



I 



CALL 


OVLTRY 


BCS 


9* 


INC 


0S*FLG(R2) 


MOV 


0S*SIZ(R2) 


SUB 


RO, R5 


ASH 


#6, RO 


ADD 


RO, R4 


BR 


3* 


Finished 




MOV 


R4, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





i Return top-of-overlay address in R5 



TSINIT - 
OVLBLD - 

1 
2 
3 
4 
5 
6 
7 
S 
9 
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10 022034 

11 022036 

12 022040 
13 

14 
15 

16 022042 

17 022046 

18 022102 

19 022104 

20 022110 
21 



13 



022112 
022120 
022126 



26 
27 
28 
29 
30 

31 022136 

32 022142 

33 022146 

34 022152 

35 022156 

36 022162 

37 022166 

38 022172 

39 022176 

40 022200 
41 

42 
43 

44 022204 

45 022206 

46 022210 

47 022212 
48 

49 
50 
51 
52 
53 



010146 
010246 
010346 



013702 

103444 
016201 
001012 



012737 
012737 
012701 
010137 



012703 
010163 
005063 
004737 
010263 
062703 
062701 
021127 
001361 
010337 



012603 
012602 
012601 
000207 



SBTTL OVLBLD 



Build overlay information table 



1 
f 



OVLBLD is called to build an overlay information table that is used 
by fSlNIT while loading TSX overlays into memory. 



Outputs: 
Overlay segment information is set up in OSTABL. 
OSLAST = Pointer past last entry in OSTABL. 



OVLBLD: MOV 
MOV 
MOV 



Rl, -(SP) 
R2, -(SP) 
R3, -<SP) 



000152' 



000064 



Read 1st block of SAV file to get pointer to overlay table 

MOV WRKBUF, R2 ; Point to work buffer 

. READW #AREA, #17, R2, #256. , #0 ; read first block of the save file 

BCS 22* ; Br if error on read 

MOV 64<R2),R1 ; point to the overlay table 

BNE 15* i br if overlays exist 

Must be verion 3B overlays structure at absolute location. 



000137 001000 
OOOOOOG 001002 
001104 
OOOOOOG 



000576 
000004 
000002 
022354 
000000 
000006 
000006 
004537 



MOV #137, ©#1000 

MOV #*OVRH, S#1002 

MOV #1104, Rl 

MOV R1,0VRADD 



i position jump instrucion over 3b ovly handler 

; position overlay intercept location 

; point to the overlay table 

; save the address of the overlay table 



15* 
11* 



12* 



001024 



Initialize the table that holds information about the overlays 

Point to table for overlay info 

Save pointer to overlay control block 

Assume seg will be loaded in high memory 

Determine if we should load this overlay 

Remember total size of overlay+data 

Point to next overlay table entry 

find the next region 

compare with a <JSR R5, *0VRH> instruction 

Br if not at end 

Save pointer past last overlay table entry 



il 


MOV 


#OSTABL, R3 


■ * 


MOV 


R1,0S*0VL<R3) 




CLR 


0S*FLG<R3) 




CALL 


ALCOVL 




MOV 


R2, 0S*SIZ<R3) 




ADD 


#0S**SZ, R3 




ADD 


#6, Rl 




CMP 


(Rl),#4537 




BIME 


11* 




MOV 


R3, OSLAST 


F 


ini shed 






MOV 


(SP>+, R3 




MOV 


<SP)+, R2 




MOV 


(SP)+, Rl 




RETURN 





022222 

022230 000137 004250' 



Error — Read error occured while reading overlay table 

i: . PRINT #TSXHD 

. PRINT #RDERR 
JMP INISTP 



TSINIT 


— TSX startup initializ 


GETMAP 

1 
2 
3 
4 


— Load 


any mapp 


ed syste 








5 








6 








7 








8 








9 








10 








11 








12 


022234 


010146 




13 


022236 


010246 




14 


022240 


010346 




15 


022242 


010537 


OOOOOOG 


16 








17 








IS 








19 








20 


022246 


012703 


000576 ' 


21 


022252 


004737 


022520 ' 


22 


022256 


010263 


000000 


23 


022262 


062703 


000006 


24 


022266 


020337 


001024' 


25 


022272 


103767 




26 








27 








28 








29 


022274 


012702 


000576' 


30 


022300 


005762 


000000 


31 


022304 


001405 




32 


022306 


005762 


000002 


33 


022312 


001002 




34 


022314 


004737 


023324 ' 


35 


022320 


062702 


000006 


36 


022324 


020237 


001024' 


37 


022330 


103763 




38 








39 








40 








41 


022332 


013700 


OOOOOOG 


42 


022336 


160500 




43 


022340 


010037 


OOOOOOG 


44 


022344 


012603 




45 


022346 


012602 




46 


022350 


012601 




47 


022352 


000207 
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SBTTL GETMAP 



Load any mapped system code regions 



GETMAP is called to load those system overlays that are placed 
m high memory. 



Inputs: 

R5 = 64-byte block number of top of free memory. 

Outputs: 
R5 = New 64-byte block number of top of free memory. 



GETMAP : MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -tSP) 
R3, -<SP) 
R5, SMRSIZ 



J Save memory pointer at start of allocation 



1*: 



MOV 


#OSTABLi R3 


CALL 


OPTOVL 


MOV 


R2, 0S*SIZ(R3) 


ADD 


#OS«*SZ, R3 


CMP 


R3, OSLAST 


BLO 


1* 



3*: 



4*; 



Now that most of the system initialization is completed* we must check 
again to see which overlays need to be loaded. 

i Point to 1st overlay table entry 

> See if this segment should be loaded 

; Save # 64-bytB blocks needed for overlay 

i Point to next overlay table entry 

; Checked all entries in overlay table? 

i Br if not 

Load those overlays that go into high memory 

Point to 1st overlay entry 

Is this overlay segment wanted? 

Br if not 

Load over TSINIT or into high memory? 

Br if load over TSINIT 

Load overlay into high memory 

Point to next overlay table entry 

Have we done all overlays? 

Loop if not 



19*: 





MOV 


#OSTABL> R2 




TST 


0S*SIZ<R2) 




BEQ 


4* 




TST 


0S*FLG(R2) 




BNE 


4* 




CALL 


GETOVL 




ADD 


#0S**SZ, R2 




CMP 


R2, OSLAST 




BLO 


3* 


F 


i n i B h e d 






MOV 


SMRSIZ>RO 




SUB 


R5, RO 




MOV 


RO, SMRSIZ 




MOV 


<SP)+, R3 




MOV 


(SP)+, R2 




MOV 


<SP)+,R1 




RETURN 





;Get memory pointer at start of allocation 

;Calc amt of space allocated 

; Save total space used for mapped regions 



f 
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1 
2 
3 
4 
5 
6 
7 
3 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



022354 010146 



022356 016301 000004 



022362 1 3702 000 1 52 ' 

022366 

022424 103415 



022426 016261 000002 OOOOOOG 



022434 016102 0000000 

022440 006302 

022442 020227 020000 

022446 101014 



. SDTTL ALCOVL — Allocate space for a system overlay region 

ALCOVL is called to determine if a system overlay region is wanted 
(based on sysgen options), and if it is luanted to determine how 
much space is needed for the code and data. 

Inputs: 
R3 = Pointer to overlay table entry (OS*xxx) 

Outputs: 

C~flag cleared ===> This segment is to be loaded. 

C-flag set ==> Do not load this overlay segment. 

R2 = # 64-13yte blocks needed for segment including data areas within it. 

ALCOVL: MOV R1,-<SP) 

Oet pointer to linker-build overlay entry for segment 

MOV 0S*0VL(R3), Rl ; Get pointer to linker-built entry for seg 

Read in the first block of the overlay segment 

MOV WRKBUF, R2 J Point to work buffer 

. READW #AREA, #17, R2, #256. ,0. BLK<R1) ; read the first block 

BCS 3* ;Br if read error 

Save the 3 character RadSO segment ID in the 0. ADR cell of the 
linker-built overlay table entry for this segment. 

MOV 2(R2),0. ADR(Rl) i save the radSO overlay identifier 

Make sure the segment is not larger than 8Kb 

; get the word count of the code region 
j convert to byte count 
i check for 8kb overflow 
i Br if region is too big 

Don't load some optional segments if features were not selected 

in TSGEN. 



MOV 


0. SIZ<R1),R2 


ASL 


R2 


CMP 


R2. #20000 


BHI 


21* 



022450 004737 



CALL 



OPTOVL 



; See if we want to load this segment 



Finished 

The C-flag is set or reset by OPTOVL. 



022454 012601 
022456 000207 



022460 
022466 
022474 000137 004250 



MOV 
RETURN 



<SP>+,R1 



Error 



Error on reading from SAV file 



3*: 



.PRINT #TSXHD 
.PRINT #RDERR 
JMP INISTP 



i Print heading 

i Read error 

jAbort initialization 



Error — Insufficient memory space to load run-time systems 
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ALCOVL -- Allocate space for a systeni overlay region 

58 022500 21*: .PRINT #TSXHD i PRINT HEADING 

59 022506 .PRINT #TSXSIZ ; PRINT ERROR MESSAGE 

60 022514 000137 004250' JMP INISTP ; ABORT INITIALIZATION 



i 
t 



\ 



c 

c 
i 
I 
I 

I 

€ 
€ 

i 
i 
i 

4 



TSINIT - 
OPTOVL - 

1 

2 
3 
4 
5 
L 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Check for optional system overlay regions 



. SBTTL OPTOVL 



022520 010346 
022522 010446 
022524 010546 



022526 016305 000004 
022532 016504 0000000 



022536 016502 OOOOOOG 
022542 006302 



022544 012700 022570' 

022550 020420 

022552 001405 

022554 005720 

022556 020027 022654' 

022562 103772 

022564 000577 



022566 000130 



022570 
022570 
022574 
022600 
022604 
022610 
022614 
022620 



Check for optional system overlay regions 



OPTOVL is called to determine if a specific system overlay is or is 

not to be loaded based on sysgen options. 

This routine may also add space for buffers to the overlay regions size. 

Inputs: 
R3 = Pointer to overlay table entry for segment (OS*xxx) 

Outputs: 
C-flag cleared ==> Load this overlay. 
C-flag set ==> Do not load this overlay. 
R2 = # 64-byte blocks needed for code + data for the segment. 



OPTOVL: MOV 
MOV 
MOV 



R3, -(SP) 
R4, -<SP) 
R5, -<SP) 



Oet the name of the overlay segment 



MOV 0S«0VL<R3),R5 
MOV 0. ADR(R5),R4 



; Get pointer to linker-built entry 
; Get name of the segment 



Get size of code portion of overlay segment 



MOV 0. SIZ<R5),R2 
ASL R2 



i Get # words needed by code portion of seg 
; Convert to # bytes 



1*: 



MOV 


#OVLLST, RO 


CMP 


R4, <R0)+ 


BEQ 


2* 


TST 


(R0) + 


CMP 


RO, #OVLEND 


BLD 


1* 


BR 


OOXYES 



See if this is an optional segment that u>e need to deal with specially 

Point to overlay name list 

Found name of overlay? 

Br if yes 

Mo — Skip over address ujord 

Checked all names in the list? 

Loop if not 

Load this overlay 

Branch off to processing routine 

2*: JMP @<R0)+ i Enter processing routine for the overlay 

Table of overlay names and processing routines 

. MACRO OVLTBL NAME 

. RAD50 /'NAME'/ 

.WORD OOR'NAME 

. ENDM OVLTBL 



DVLLST: 



OVLTBL USR 

OVLTBL SPL 

OVLTBL LOK 

OVLTBL MSG 

OVLTBL SWP 

OVLTBL PLS 

OVLTBL SLE 



TSUSR — File management 

TSSPOL — Spooling system 

TSLOCK — Shared file record locking 

TSMSG — Intel — job message communication 

TSSWAP — Job swapper 

TSPLAS — PLAS support 

TSSLE — Single line editor 



I 

c 
f 
I 
I 

€ 

€ 

€ 

i 

€ 

i 

i 

€ 

€ 

I 

i 

4 

i 

i 

i 

i 



TSINIT — TSX s 


tartup initializ 


OPTDVL — Check 


for opt 


ional sy 


58 022624 






59 022630 






60 022634 






£>i 02^£)40 






62 022644 






63 022650 






64 022654 






65 






66 






67 






68 022654 


013703 


OOOOOOG 


69 022660 


070327 


OOOOOOG 


70 022664 


060302 




71 022666 


000536 




72 






73 






74 






75 022670 


005727 


OOOOOOG 


76 022674 


001530 




77 022676 


062702 


OOOOOOC 


78 022702 


013703 


OOOOOOG 


79 022706 


062703 


000007 


SO 022712 


072327 


177775 


81 022716 


005203 




82 022720 


042703 


000001 


83 022724 


060302 




84 022726 


000516 




85 






86 






87 






88 022730 


005737 


OOOOOOG 


89 022734 


001510 




90 022736 


005737 


OOOOOOG 


91 022742 


001110 




92 022744 


162702 


OOOOOOG 


93 022750 


000505 




94 






95 






96 






97 022752 


013703 


OOOOOOG 


98 022756 


001477 




99 022760 


070327 


OOOOOOG 


100 022764 


060302 




101 022766 


013703 


OOOOOOG 


102 022772 


070327 


OOOOOOG 


103 022776 


060302 




104 023000 


013703 


OOOOOOG 


105 023004 


005203 




106 023006 


042703 


000001 


107 023012 


062703 


OOOOOOG 


108 023016 


070337 


OOOOOOG 


109 023022 


060302 




110 023024 


000457 




111 






112 






113 






114 023026 


013703 


OOOOOOG 
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OVLTBL 


WIN 




OVLTBL 


MIO 




OVLTBL 


CLO 




OVLTBL 


DBG 




OVLTBL 


CSH 




OVLTBL 


DMP 


OVLEND; 
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TSWIN — 
TSMIO — 
TSCLO — 
TSDBUG — 
TSCASH — 
TSDUMP — 



Display window management 

Mapped I/O 

CL handler 

Program debugger 

Data caching 

Crash dump generator 



i File management 

i 

OORUSR; MOV VNFCSH, R3 

MUL #FC**SZ, R3 

ADD R3, R2 

BR OOXYES 

i 

; Spooling system 

> 

OQRSPL: TST #SPLND 

BEQ OOXNO 

ADD #<SPLNB#51£ 

MOV NSPLBL. R3 

ADD #7, R3 

ASH #-3, R3 

INC R3 

BIC #1,R3 

ADD R3, R2 

BR OOXYES 

i 

> Record locking system 



OORLOK: 


TST 


VMXSF 




BEQ 


OOXNO 




TST 


VNUMDC 




BNE 


OOXYES 




SUB 


#DCCSIZ,R2 




BR 


OOXYES 


i Message communication s 


> 

OORMSG: 


MOV 


VMAXMC, R3 




BEQ 


OOXNO 




MUL 


#MB**SZ, R3 




ADD 


R3, R2 




MOV 


VMXMRB, R3 




MUL 


#MR**SZ, R3 




ADD 


R3, R2 




MOV 


VMSCHR, R3 




INC 


R3 




BIC 


#1,R3 




ADD 


#MU*TXT, R3 




MUL 


VMXMSG, R3 




ADD 


R3, R2 




BR 


OOXYES 



; Get # file cache entries 
/Multiply by size of each entry 
; Allocate space for directory cache 
; Load the segment 



; Are there any spooled devices? 
> Br if not 
>>R2; Reserve room for spool buffers 
; Get # blocks for spool file 
; Bound up to byte boundary 
i Divide by 8 to get # bytes for table 
; Round up to word boundary 

jAdd space for spool file allocation table 
; Load the segment 



; Any shared files? 

; Br if not 

i Shared file data caching wanted? 

; Br if yes 

i Reduce size of segment - Leave out cache code 

i Load the segment 



>tem 



PLAS support 
OORPLS: MOV VPLAS, R3 



i Is message communication facility wanted? 

; Br if not 

i Space for message channel blocks 

i Number of message request blocks 
i Times size of request block 

>Max # chars in a message 

J Bound up to word 

; Reserve whole number of words 

iPlus space for message header 

; Times maximum number of messages 

i Space for message buffers 



PLAS support wanted? 



TSINIT - 


— TSX s 


tartup initializ 


OPTOVL - 


— Check 


for p t 


ional sy 


115 


023032 


001451 




116 


023034 


062703 


000021 


117 


023040 


072327 


177775 


US 


023044 


060302 




119 


023046 


000446 




120 








121 








122 








123 


023050 


105737 


0000000 


124 


023054 


001440 




125 


023056 


000442 




126 








127 








128 








129 


023060 


105737 


OOOOOOG 


130 


023064 


001434 




131 


023066 


000436 




132 








133 








134 








135 


023070 


013703 


OOOOOOG 


136 


023074 


001430 




137 


023076 


070327 


OOOOOOG 


138 


023102 


060302 




139 


023104 


000427 




140 








141 








142 








143 


023106 


105737 


OOOOOOG 


144 


023112 


001421 




145 


023114 


000423 




146 








147 








148 








149 


023116 


005727 


OOOOOOG 


150 


023122 


001415 




151 


023124 


000417 




152 








153 








154 








155 


023126 


105737 


OOOOOOG 


156 


023132 


001411 




157 


023134 


000413 




158 








159 








160 








161 


023136 


005737 


OOOOOOG 


162 


023142 


001405 




163 


023144 


000407 




164 








165 








166 








167 


023146 


105737 


OOOOOOG 


168 


023152 


001401 




169 


023154 


000403 




170 








171 
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BEQ 
ADD 
ASH 
ADD 
BR 

Job swapper 

OORSWP: TSTB 
BEQ 
BR 



DOXNO 
#17. ,R3 
#-3, R3 
R3, R2 
OOXYES 



VSWPFL 

DOXNO 

OOXYES 



Single line editor 



OORSLE: TSTB 
BEQ 
BR 



VSLEDT 

OOXNO 

OOXYES 



Display windows 



OORWIN: MOV 
BEQ 
MUL 
ADD 
BR 

i 

i Mapped I/O 

OORMIO: TSTB 
BEQ 
BR 

CL handler 

OORCLO: TST 
BEQ 
BR 



VMXWIN, R3 
OOXNO 

#DW**SZ, R3 
R3, R2 
OOXYES 



MIOFLG 

OOXNO 

OOXYES 



#CLTOTL 

OOXNO 

OOXYES 



Program debugger 

OORDBG: TSTB VDBFLG 
BEQ OOXNO 
BR OOXYES 

Data caching 

OORCSH: TST CSHALC 
BEQ OOXNO 
BR OOXYES 

Crash dump generator 



OORDMP : TSTB 
BEQ 
BR 



VSYDMP 

OOXNO 

OOXYES 
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; Br if not 

jBound up # blocks 

i Get # bytes needed for swap file bit map 

; Reserve room for swap file bit map 

; Load the segment 



; Is this a swapping system? 

) Br if not 

; Br if yes — Load the segment 



i Is SL editor wanted? 

j Br if not 

/Load the segment 



> Are any display windows wanted? 

j Br if not 

j Amt of space needed for window control blks 

i Add to size of overlay 

i Load the segment 



; Is I/O mapping needed? 

; Br if not 

; Load the segment 



i Any I/O 1 ines? 

; Br if not 

; Yes> load the segment 



; Is the program debugger wanted? 

J Br if not 

; Load this segment 



Is data caching wanted? 

Br if not 

Load this segment 



i Is dump facility wanted? 
; Br if not 
; Br if yes 



I Don't load this segment 



TSINIT - 


— TSX 5 


tartup initial! 


OPTDVL - 


— Check 


for opt 


ional s 


172 
173 


023156 


005002 




174 


023160 


000261 




175 


023162 


0004 ItJ 




176 








177 








178 








179 


023164 


005202 




180 


023166 


042702 


000001 


181 


023172 


020227 


020000 


182 


023176 


101402 




183 


023200 


012702 


020000 


184 


023204 


062702 


000077 


185 


023210 


072227 


177772 


186 


023214 


000241 




187 








188 








189 








190 


023216 


012605 




191 


023220 


012604 




192 


023222 


012603 




193 


023224 


000207 
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item overlay regions 



ODXNO: CLR R2 
SEC 
I3R OOXFIN 

; Load this segment 



OOXYES: INC 
BIC 
CMP 
BLOS 
MOV 

1*: ADD 
ASH 
CLC 

; Finished 

OOXFIN: MOV 
MOV 
MOV 
RETURN 



R2 

#1,R2 

R2, #8192. 

1* 

#8192. , R2 

#63. , R2 

#-6, R2 



<SP)+, R5 
<SP)+, R4 
(SP)+, R3 
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; Say no space needed for overlay 
.: Signal don't load the segment 



iMake sure size is even 

;Don't allou code + data to exceed 8Kb 

; Br if ok 

; Note, init code in segment u»ill truncate dat 

> Convert to # 64-"byte blocks 

; Signal to load the segment 



1 



TSINIT — 
OVLTRY --- 

1 
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Find an overlay to place over TSINIT 



3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 

14 023226 
15 

16 
17 

15 023230 

19 023232 

20 023236 

21 023242 

22 023244 

23 023250 

24 023252 

25 023256 

26 023260 

27 023262 

28 023264 

29 023272 

30 023274 

31 023276 

32 023302 

33 023306 
34 

35 
36 

37 023310 

38 023312 

39 023314 

40 023316 

41 023320 

42 023322 



010346 



005002 
012703 
005763 
001415 
005763 
001012 
026305 
101007 
005702 
001404 
026362 
101401 
010302 
062703 
020337 
103753 



000241 
005702 
001001 
000261 
012603 
000207 



. SBTTL OVLTRY — Find an overlay to place over TSINIT 

OVLTRY is called to identify the largest overlay segment which 
will fit in the TSINIT arisa and which is not already marked to go 
over TSINIT. 

Inputs: 
R5 == # 64-byte blocks available for segment in TSINIT. 

Outputs: 
R2 = Pointer to OSTABL entry for segment 
C-fiag set ==> No more Kegments will fit. 

OVLTRY: MOV R3, -<SP) 

Begin loop to examine all segments 



000576 
000000 

000002 

000000 



000000 000000 



000006 
001024 



CLR 
MOV 
1*: TST 
BEQ 
TST 
BNE 
CMP 
BHI 
TST 
BEQ 
CMP 
BLOS 
3$: MOV 
2*: ADD 
CMP 
BLO 

F- i n i s h e d 

CLC 
TST 
BNE 
SEC 
9*: MOV 

RETURN 



R2 

#OSTABL> R3 

0S*SIZ(R3) 

2* 

0S*FLG<R3) 

2* 

0S*SIZ(R3).R5 

2* 

R2 

3* 



Say we haven't found any segment yet 

Point to entry for 1st segment 

Is this segment to be loadedT' 

Br if not 

Is this segment already over TSINIT? 

Br if yes 

Will this segment fit? 

Br if not 

Have we found any other seg yet? 

Br if not 



0S*SIZ(R3),OS*SIZ<R2) i Is new seg larger than old? 



2* 
R3, R2 

#OS**SZ, R3 
R3, OSLAST 
1* 



R2 
9* 

<SP)+, R3 



; Br if not 

i Remember largest segment 

; Point to entry for next segment 

; Have we checked all segments? 

; Loop if not 



; Assume we found a segment 

iDid we find a segment that will fit? 

; Br if yes 

> Signal failure on return 



( 



TSINIT - 
GETOVL. - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 
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Load system overlay into high memory 



023324 



023324 166205 000000 
023330 020527 001600 
023334 103405 



023336 004737 004636 ' 



023342 004737 023370 



023346 000207 



023350 
023356 
023364 000137 004250' 



. SBTTL GETOVL — Load system overlay into high memory 
GETOVL is called to load a system overlay into high memory. 



Inputs: 
R2 = Pointer to overlay table entry for segment in OSTABL. 
R5 = 64-byte physical memory block number where seg is to be loaded. 

Outputs: 
R5 == Update 64-byte physical memory block pointer for next segment. 

GETOVL: 

Allocate space for the overlay segment 

SUB 0S*SIZ<R2>, R5 ; Allocate space for overlay 

CMP R5, #1600 ;Are we about to run over RT-11? 

BLO 10* ; Br if yes — Insufficient memory 

Remember the base address of some key segments 



CALL KEYSEG 
Load the segment 

CALL LODOVL 
F- i n i s h B d 

RETURN 

Error: Memory overflow 

10*: .PRINT #TSXHD 
. PRINT #TSXSIZ 
JMP INISTP 



j Remember address of some segments 



Load the segment 



\ 



TSINIT 
LODOVL 



3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Read and relocate system overlay 
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1 
f 



023370 
023372 
023374 
023376 
023400 



023402 
023406 
023412 
023420 
023422 
023426 
023430 
023434 



023440 
023444 
023502 



023504 
023510 
023514 
023516 
023520 
023522 
023524 
023532 
023536 
023542 
023550 
023554 
023556 
023564 
023566 
023570 
023574 
023576 
023604 
023612 
023616 
023624 
023630 



010146 
010246 
010346 
010446 
010546 



016201 
016103 
016137 
010302 
062702 
000302 
042702 
010561 



013704 
103466 



012701 
012700 
020300 
103001 
010300 
160003 

013746 
010537 
052737 
105737 
001403 
052737 
012421 
077002 
105737 
001403 
042737 
042737 
012637 

062705 
005237 



. BBTTL LODOVL — Reed and relocate system overlay 

LODOVL is called to load a system overlay region into memory. 

Inputs: 
R2 = Pointer to OSTABL entry for segment being loaded. 
R5 = 64-byte physical memory block number where segment is to be loaded. 



LODOVL: MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3, -<SP) 
R4, -(SP) 
R5, -(SP) 



000004 
OOOOOOG 
OOOOOOG 000142' 

000377 

177400 
OOOOOOQ 



000152 



Get info about size of the overlay and position within SAV file 

MOV 0S*0VL<R2)> Rl ; Get pointer to linker-built segment entry 

MOV 0. SIZ<R1),R3 J Get size of overlay segment <# words) 

MOV 0. BLK<R1). FILBLK;Get block in SAV file where segment starts 

MOV R3> R2 i Get total number of words in segment 

ADD #255. , R2 ; round to the nearest number of blocks 

SWAB R2 i Divide by 256. words per segment 

BIC #177400, R2 ;kill sign extension bits 

MOV R5, 0. PAR<R1) i Remember where segment is being loaded 

Read next block of overlay segment into low-memory buffer 

10*: MOV WRKBUF, R4 i Point to work buffer 

. READW #AREA, #17, R4. #256. , FILBLK i read a block 
BCS 22* i read error occured 

Move from low buffer to high position in memory 



OOOOOOG 
000400 



?*: 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 



11$: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 12*: 
OOOOOOG 

000010 
000142' 



MOV #VPAR5, Rl 

MOV #256. , RO 

CMP R3, RO 

BHIS 2* 

MOV R3, RO 

SUB RO, R3 

DISABL 

MOV @#KPAR5, -<SP) 

MOV R5, e#KPAR5 

BIS #MMENBL, @#SROMMR 

TSTB MEM256 

BEQ 11* 

B I S #EMMAP , @#SR 3MMR 

MOV (R4)+, (R) ) + 

SOB RO, 11* 

TSTB MEM256 

BEQ 12* 

BIC #EMMAP, e#SR3MMR 

BIC #MMENBL, @#SROMMR 

MOV (SP)+, @#KPAR5 

ENABL 

ADD #10, R5 

INC FILBLK 



get the virtual address of the mapped region 

obtain the number of words to move 

Do we need to move as many as 256 words? 

Br if yes 

Get number of words to move for last block 

Get number of words left after this move 

** Disable interrupts »* 

save the contents of the mapping register 

change the mapping register 

enable memory management 

Does machine have at least 256Kb of memory? 

Br if not 

enable extended memory addressing 

move into high memory 

Does this machine have at least 256Kb? 

Br if not 

disable extended memory management 

disable memory management 

restore the mapping register 

*■«■ Enable interrupts ** 

advance 64-byte block # by 512-bytes 

increment file block # 



K 
K 
i 
i 
I 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 



023634 
023636 
023640 



023644 
023646 
023650 
023652 
023654 
023656 



023660 
023666 
023674 



005302 
00 1 402 
000137 



012605 
012604 
012603 
012602 
012601 
000207 



023440 ' 



5*: 



EC 


R2 


EQ 


5* 


vjp 


10* 



Finished loading the segment 



MOV 


(SP)+, 


R5 


MOV 


(SP)+, 


R4 


MOV 


(SP)+, 


R3 


MOV 


(SP)+, 


R2 


MOV 


<SP)+, 


Rl 


RETURN 







000137 004250' 



Error occurred on read 

S: .PRINT #TSXHD 
. PRINT #RDERR 
JMP INISTP 



; More to be copied? 

; Br if not 

i Read and copy rest of mapped segment 



; Print heading 

J Read error 

jAbort initialization 



I 



i 
i 
i 



TSINIT - 
GETSRT - 

1 
2 
3 
4 
5 
6 
7 
O 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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. SBTTL GETSRT — Load any shared run-time systems 

GETSFiT is called to load into memory a shared run-time system. 
Shared run-time systems are loaded into the top of memory. 

Inputs: 
Rl == Pointer to shared run-time descriptor block. 
R5 ~ 64-byte block number of top of free memory. 

Outputs: 
R5 = Neu) top of memory block number 



023700 010146 

023702 010246 

023704 010346 

023706 010446 



023710 021127 OOOOOOG 
023714 001540 



023716 
023734 



103010 



023736 
023742 
023744 
023750 
023754 



023756 
023762 
023766 
023770 
023774 
023776 
024002 
024004 
024010 
024012 



024016 
024020 
024024 

024060 
024064 



105737 
001132 
005061 
005061 
000520 



116102 
042702 
160200 
010561 
010003 
072027 
160005 
020527 
103530 
010561 



010546 
013704 



012701 
010537 



OOOOOOG 

OOOOOOG 
000002G 



OOOOOOG 
177400 

OOOOOOG 

000003 

001600 

OOOOOOG 



000152' 



OOOOOOG 
OOOOOOG 



GETSRT: MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -(SP) 
R3, ~<SP> 
R4, -<SP) 



See if this is a dummy run-time entry to allow for patching 



CMP (R1),#DMYDEV 
BEQ 7* 



; Dummy run-time entry? 
; Br if yes 



Try to open a channel to run-time file 



. LOOKUP #AREA, #1,R1 
BCC e« 



i OPEN CHANNEL TO RUN-TIME FILE 
;BR IF OPEN WAS SUCCESSFUL 



TSTB 


VINABT 


f 


BNE 


9* 


i 


CLR 


RT*NAM<R1> 


} 


CLR 


RT*NAM+2(R1) 




BR 


7* 


i 



8*: 



4*: 



Cannot open shared run-time file. 
See if he uants to abort or continue. 

ABORT OR CONTINUE 

BR IF ABORT WANTED 

Mark run-time as not-available 

:G0 LOAD NEXT RUN-TIME SYSTEM 

Set up information about position of run-time in physical memory 

GET # BLOCKS TO SKIP AT FRONT OF RUN-TIME 

CLEAR SIGN EXTENSION 

GET # BLOCKS TO READ < LOOKUP SET RO W SIZE) 

SET 64-BYTE BLOCK # ABOVE TOP OF RUN-TIME 

GET # 512-BYTE BLOCKS IN RUN-TIME 

CONVERT TO # 64-BYTE BLOCKS 

CALCULATE BASE 64-BYTE BLOCK # OF RUN-TIME 

ARE WE ABOUT TO RUN OVER RT-11? 

BR IF YES 

SET BASE 64-BYTE BLOCK # OF RUN-TIME 

Read run-time system into memory and position in high-memory 

MOV R5i-<SP) i Save address of bottom of run-time 
MOV WRKBUF, R4 i Point to work buffer 

. READW #AREA, #1,R4, #256. ,R2 ; READ A BLOCK OF RUN-TIME FILE 
Use memory management to access high-memory area. 

MOV #VPAR6, Rl ;GET VIRTUAL ADDRESS OF PAR6 ADDRESS REGION 
MOV R5, @#UPAR6 ; SET USER -MODE PAR6 MAP OFFSET VALUE 



MOVB 


RT*SKP(R1),R2 


BIC 


#'X377, R2 


SUB 


R2, RO 


MOV 


R5, RT$T0P<R1) 


MOV 


RO, R3 


ASH 


#3, RO 


SUB 


RO, R5 


CMP 


R5, #1600 


BLO 


11* 


MOV 


R5, RT*BAS<R1) 



TSINIT — TSX startup initiali?. MACRO V05. 04 
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58 024070 

59 024076 

60 024104 



62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
o3 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 



024116 
024124 
024130 
024132 
024140 
024142 
024144 
024146 
024152 
024154 
024162 
024170 
024176 
024202 
024204 



024206 
024210 



024216 
024220 

024224 



024230 
024236 
024244 
024250 
024252 
024256 
024260 
024266 



024272 
024300 

024306 



012737 
052737 
012700 

052737 
105737 
001403 
052737 
012446 
106621 
077003 
105737 
001403 
042737 
042737 

062705 
005202 
077373 



012605 



077406 OOOOOOG 
0000000 OOOOOOG 
000400 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



3*: 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 31$: 

000010 



Thursday 


17-Dec-87 08: 39 f 


MOV 


#077406, e#UPDR6 ; 


BIS 


#UPMODE, e#PSW ; 


MOV 


#256. , RO i 


DISawl 




BIS 


#MMENBL, @#SROMMRi 


TSTB 


MEM256 ; 


BEQ 


3* : 


BIS 


#EMMAP, @#SR3MMR ; 


MOV 


(R4)+, -<SP) ; 


MTPD 


(Rl) + 


SOB 


RO, 3* 


TSTB 


MEM256 ; 


BEQ 


31* i 


BIC 


#EMMAP, @#SR3MMR ; 


BIG 


#MMENBL, e#SROMMR; 


ENABL 




ADD 


#10, R5 ; 


INC 


R2 i 


SOB 


R3, 4* i 
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SET PDR TO ALLOW FULL ACCESS TO PAGE 

SET PREVIOUS-MODE = USER FOR MTPD ACCESS 

GET # WORDS TO MOVE 

** Disable interrupts *« 

enable memory management 

DOES THIS MACHINE HAVE AT LEAST 256KB'? 

BR IF NOT 

enable extended memory addressing 

TRANSFER DATA FROM BUFFER TO HIGH MEMORY 



DOES THIS MACHINE HAVE AT LEAST 256KB'> 

BR IF NOT 

DISABLE EXTENDED MEMORY MANAGEMENT 

DISABLE MEMORY MANAGEMENT 

** Enable interrupts «•* 

ADVANCE 64-BYTE BLOCK # BY 512-BYTES 

INC FILE BLOCK # 

READ AND COPY REST OF FILE 



Finished loading the run-time system. 



MOV 

. CLOSE 



Finished 



012604 
012603 
012602 
012601 
000207 



7$: 



MOV 
MOV 
MOV 
MOV 
RETURN 



<SP)+, R5 
#1 



(SP)+, R4 
<SP)+, R3 
( SP ) +, R2 
<SP)+,R1 



Error — Cannot find run-time system file 



012702 000004 

012100 

004737 025502 ' 

077204 

000137 004250' 



9*: .PRINT #TSXHD 

. PRINT #COSRT 

MOV #4, R2 

10*: MOV <R1)+, RO 

CALL PRTR50 

SOB R2, 10* 

. PRINT #CRLF 

UMP INISTP 



; PRINT MESSAGE HEADING 
J PRINT ERROR MESSAGE 
; PRINT 4 RAD50 VALUES 
;GET PART OF NAME 
; PRINT RAD50 VALUE 

; END LINE 

; ABORT INITIALIZATION 



Error — Insufficient memory space to load run-time systems 



000137 004250 



11*: .PRINT #TSXHD 
.PRINT #SRTOVF 
JMP INISTP 



; PRINT HEADING 

i PRINT ERROR MESSAGE 

i ABORT INITIALIZATION 



i 
i 

i 

I 

4 
I 
I 
€ 
f 
€ 

€ 
€ 
€ 
4 

i 
i 

« 
C 



i 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



024312 010246 
024314 010346 



024316 013737 OOOOOOG 0000000 
024324 013702 0000000 
024330 001464 



024332 062702 000037 
024336 072227 177773 



024342 013703 0000000 

024346 072327 000003 

024352 012700 000010 

024356 060203 

024360 077002 

024362 010337 OOOOOOG 



024366 010500 

024370 160400 

024372 020300 

024374 103045 



024376 013700 OOOOOOG 

024402 072027 000003 

024406 160005 

024410 010537 OOOOOOG 



024414 160205 

024416 010537 OOOOOOG 

024422 160205 

024424 010537 OOOOOOG 

024430 160205 

024432 010537 OOOOOOG 

024436 160205 



. SBTTL CSHBUF — Allocate space for data cache tables 
Allocate space for data cache blocks and control tables. 



Inputs: 
R4 ~ 64-byte block number of base of free memory. 
R5 == 64-byte block number of top of free memory. 

Outputs: 
R5 = Updated 64-byte block number of top of free memory. 



CSHBUF: MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



See if data caching is wanted 

i Set # blocks in use - # blocks allocated 
jDid used request data caching? 
j Br if not 

Calculate number of 64-byte blocks needed for each cache control table 



MOV 


CSHALC, VCSHNB 


MOV 


CSHALCi R2 


BEQ 


9* 



ADD 
ASH 



#31. ,R2 
#-5. , R2 



; Bound up to 32 word block 
i Convert to # 64-byte blocks 



1*: 



MOV 


CSHALC, R3 


ASH 


#3, R3 


MOV 


#8. , RO 


ADD 


R2, R3 


SOB 


RO, 1* 


MOV 


R3, CSHSIZ 



Compute total space that uill be used by all cache data 

; Get # blocks in cache 

iGet # 64-byte blks used by cache data buffers 
i Get number of cache control tables 
{Accumulate total space needed 

J Save total space used by cache data 

See if there is enough memory space available for the specified cache 

; Get top of memory address 
; Compute # free 64-byte blocks 
i Is there enough total space? 
i Br if not 

Allocate space for cache data buffers 

; Get # blocks in data cache 

; Get # 64-byte blocks needed for allocation 

^Allocate space for cache data buffers 

i Save pointer to base of buffer aTea 



MOV 


R5, RO 


SUB 


R4, RO 


CMP 


R3, RO 


BHIS 


10* 



MOV 


CSHALC, RO 


ASH 


#3, RO 


SUB 


RO, R5 


MOV 


R5, CSHBFP 



Allocate space for each control table 



SUB 


R2, R5 


MOV 


R5, CA*BLK 


SUB 


R2, R5 


MOV 


R5, CA*DVU 


SUB 


R2, R5 


MOV 


R5, CA*WCT 


SUB 


R2, R5 



iAllocate space for table 

i Block number associated with entry 

iAllocate space for table 

i Device and unit number 

{Allocate space for table 

{Number of words 

iAllocate space for table 



1 
t 
f 
t 
I 

€ 
€ 

€ 
I 

i 

i 
i 
c 
I 

i 
i 
i 
i 
i 
4 



i 



I 
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58 024440 

59 024444 

60 024446 

61 Oi:i44»k' 

62 024454 

63 024460 

64 024462 

65 024466 

66 024470 

67 024474 

68 024500 
69 

70 
71 

72 024502 

73 024504 

74 024506 
75 

76 
77 

78 024510 

79 024516 

80 024524 



010537 
160205 
010537 
16Ui:i;Ot? 
010537 
160205 
010537 
160205 
010537 
020527 
101403 



012603 
012602 
000207 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
001600 



MOV 


R5, CA*UFL 


; LRU c 


SUB 


R2, R5 


; Alloc 


MOV 


R5, CA«UBL 


;LRU c 


SUB 


R2, R5 


; Alloc 


MOV 


R5, CA*HFL 


;Hash 


SUB 


R2, R5 


; Alloc 


MOV 


R5, CA*HBL 


jHash 


SUB 


R2, R5 


; Alloc 


MOV 


R5, CA*HSH 


;Hash 


CMP 


R5, #1600 


; Did u> 


BLOS 


10* 


; Br if 



i Finished 



9*; 



MOV 
MOV 
RETURN 



<SP)+, R3 
<SP)+, R2 



:hain forward link 
:ate space for table 
:hain backward link 
;ate space for table 

chain forward link 
:ate space for table 

chain backward link 
:ate space for table 

chain list heads 
te run over RT-11? 
yes 



f 

c 



i Insufficent memory space available for cache data 



10*: 



000137 004250 



. PRINT 
. PRINT 

JMP 



#TSXHD 

#CSHOVF 

INISTP 



; Print heading 

;Overlow message 

; Abort the initialization 



€ 

i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. IF EQ, PROCID ; Don't allouj ODT for production PRO version 
. SBTTL GETODT — Load ODT 

GErODT is called to load ODT into memory above TSX and transfer control 
to it. On return, ODT has been started. 

Inputs: 
R5 = Address where ODT is to be loaded. 

Outputs: 
R5 = Address above top of ODT. 



GETODT: MOV 
MOV 
MOV 
MOV 



Rl, -<SP) 
R2, -<SP) 
R3>-<SP) 
R4, -<SP) 



1*: 



P*: 



Try to lookup ODT rel file. 

.LOOKUP #AREA, #1>#0DTBLK ; LOOKUP ODT REL FILE 

BCC 1* ;BR IF FOUND IT 

PRINT #TSXHD ; CAN'T FIND ODT 
. PRINT #NOODT 

JMP INISTP ; ABORT INITIALIZATION 

Read first block of ODT file and determine size of ODT. 



; RESERVE SPACE FOR ODT STACK 

; CHECK MEMORY ADDRESS FOR OVERFLOW 



; Br if no read error 
.: Read error 
:GET SIZE OF ODT 

; OET ADDRESS ABOVE TOP OF ODT 

i CHECK MEMORY ADDRESS FOR OVERFLOW 



i GET # WORDS IN ODT 

J GET OFFSET TO START ADDRESS 

i CALCULATE ABSOLUTE STARTING ADDRESS 

J THIS IS REAL STARTING ADDRESS 

; GET # OF BLOCK WITH RELOCATION INFO 



ADD 


#200. . R5 


MOV 


R5, RO 


ADD 


#512. ,R0 


CALL 


CHKMEM 


, READW 


#AREA, #1,R 


BCC 


2* 


viMP 


ODTRDX 


MOV 


RSZ<R5),R2 


MOV 


R2, R3 


ADD 


R5, R3 


MOV 


R3, RO 


CALL 


CHKMEM 


CLC 




RDR 


R2 



Get starting address of ODT 

MOV STA<R5),R0 

SUB #ODTBAS, RO 

ADD R5, RO 

MOV RO, ODTSTA 

MOV RBD(R5),R1 

Read in ODT rel file image. 



READW #AREA.. #1,R5, R2, #1 



BCS 



ODTRDX 



; BR IF READ ERROR 



Relocate addresses in ODT. 

R5 = Address of base of ODT; R3 = Address above top of ODT. 

Rl - Block number in rel file of start of relocation info. 



^, 


TSINIT 




CSHBUF 




58 




59 
60 




61 




62 

63 




64 




65 
66 




67 




68 




69 




70 




71 

72 




73 




74 




75 




76 




77 

78 




79 




SO 
81 




82 




S3 




84 




85 




86 
87 




88 




89 




90 




91 




92 
93 




94 




95 




96 




97 




98 




99 




100 




101 




102 




103 




104 




105 




106 




107 




108 




109 




110 




111 




112 




113 




114 
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RELFIL: MOV 

MOV 
. IF NE, PROCI 

T5TB 

BNE 
. ENDC ; NE, PROC 

MOV 
1*: MOV 

ADD 

MOV 

SUB 
; Read in reloc 
4*: , READW 

BCC 

TSTB 

BNE 
> Relocate some 



7*: 
3*: 



5*: 
6*: 



MOV 

MOV 

CMP 

BEQ 

MOV 

ASL 

BCC 

SUB 

BR 

ADD 

ADD 

MOV 

CMP 

BLO 

ADD 

BR 



R3, ODTTOP 

R3, RLBF 

D 

PKUI-LW 

1* 

ID 

WRKBUF, RLBF 

RLBF, RLBFND 

#1024. , RLBFND 

R5, R4 

#ODTBAS, R4 

ation address 

#AREA, #1,RLBF, 

7* 

@#52 

ODTRDX 
addresses in 

RLBF, R2 

(R2)+, R3 
R3, #-2 
9* 

(R2)+, RO 

R3 

5* 

R4, RO 

6« 

R4, RO 

R5, R3 

RO, @R3 

R2, RLBFND 

3* 

#2, Rl 

4* 



; SAVE ADDRESS ABOVE TOP OF ODT 

;Only if PRO protection code is included 
; Are we running on a Pro? 
i Br if yes 

; READ RELOCATION INFO HERE 

GET ADDRESS OF END OF BUFFER AREA 

GET BASE ADDRESS OF ODT 

SUBTRACT LINK BASE ADDRESS 
list. 
#512. ,R1 

BR IF NO READ ERROR 

END OF FILE IS OK 

BR IF READ ERROR 



DDT. 



POINT TO RELOCATION INFO 

GET ADDRESS OF LOCATION TO RELOCATE 

TIME TO STOP? 

BR IF FINISHED 

GET VALUE TO RELOCATE 

CVT TO BYTE ADDRESS 

BR IF ADDITIVE RELOCATION 

RELOCATE THE ADDRESS 

RELOCATE THE ADDRESS 

GET LOCATION WHERE WORD GOES 

STORE RELOCATED ADDRESS 

TIME TO READ NEXT BUFFER FULL^ 

BR IF NOT 

ADVANCE BLOCK # 

QO READ NEXT BUFFER FULL 



Finished relocation. 
Close ODT rel file. 

9*: . CLOSE #1 

Direct interrupts to 60 and 64 to an RTI instruction 



MOV #D0RTI,e#60 
MOV #D0RTI,e#64 



; Catch interrupt 60 
; Catch interrupt 64 



Load registers with the following values for initial entry to ODT- 
RO = Base of TSINIT 

Rl = Important breakpoint (-^R) in TSX 
R2 = Base of TSGEN 
R3 = Base of TSEXEC 
R4 = Base of TSEMT 

R5 = Return address to start execution 
0<SF> = Address of mapsys routine 
2<SP) = Address of sysmap cell 

MOV #TSINIT, RO 
MOV #BRKPT, Rl 
MOV #TSGEN, R2 



I 



i 



TSINIT - 
CSHBUF - 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
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Allocate space -For data cache tables 



MOV 


#TSEXEC, R3 


MOV 


#TSEMT, R4 


MOV 


#SYSMAP, -<SP> 


MOV 


#MAPSYS, -<SP) 


MOV 


#10*, R5 


Enter ODT 




JMP 


eODTSTA 



iPASS ADDRESS OF SYSMAP CELL TO ODT 
iPASS ADDRESS OF MAPSYS ROUTINE 
; ADDRESS FOR ODT TO RETURN TO 



i JUMP TO START OF ODT 



Return from ODT. 

Continue initialization of TSX. 



10*: 



MOV 


e#14, ODTTRP 


MOV 


ODTTOP, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





SAVE ODT BREAKPOINT ENTRY ADDRESS 
ADDRESS ABOVE TOP OF ODT 



Error while reading ODT rel file. 

i PRINT ERROR MESSAGE 
; ABORT INITIALIZATION 

RTI instruction to disable interrupts 



ODTRDX: PRINT #TSXHD 
.PRINT #ODTRDM 
JMP INISTP 



DDRTI 



RTI 
. ENDC 



i EQ, PROCID 



€ 
€ 

i 
i 

< 

i 



TSINIT - 
OPWCHN - 

1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
1.1 
1^ 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
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— Open a TSX-Plus channel 

. SBTTL OPNCHN — Open a TSX-Plus channel 



OPNCHN is called to set up information in a TSX-Plus channel block 
to make it look as if the channel has been opened to a specified 
device with a . ENTER. 

Inputs: 
RO = Address of channel block to be opened. 
RP — RadSO device name. 

Outputs: 
C-flag set ==> Cannot open the device. 



024530 010146 
024532 010346 
024534 010003 



024536 010301 

024540 012700 OOOOOOC 

024544 005021 

024546 077002 

024550 012763 OOOOOOC OOOOOOG 



024556 010200 

024560 004737 011476' 

024564 103411 

024566 010001 

024570 000301 

024572 110163 OOOOOOG 

024576 042700 OOOOOOC 

024602 050063 OOOOOOG 



024606 000241 



024610 012603 
024612 012601 
024614 000207 



OPNCHN: ilOV 
HOV 
MOV 



R 1 , - < SP ) 
R3, -<SP) 
RO, R3 



; Carru channel block address in R3 



Initialize the channel block 



?*: 



MOV 
MOV 
CLR 
SOB 
MOV 



;Point to the channel block 
i Get # words to zero 
; Zero the channel block 



R3, Rl 

#<CHNSIZ/2>, RO 

<R1) + 

RO, 2* 

#<CS*OPNfCS*ENT>, C. CSW<R3) ; Initialize CSW to say chan open 



Convert the device name into device # and unit # 



9*: 



MOV 


R2, RO 


CALL 


CVTDVU 


BCS 


9* 


MOV 


RO, Rl 


SWAB 


Rl 


MDVB 


Rl, C. DEVQ(R3) 


BIC 


#-X<CS*NMX>, RO 


BIS 


RO, C. CSW<R3) 


Success 




CLC 




Finished 




MOV 


(SP)+, R3 


MOV 


<SP)+, Rl 


RETURN 





Get the full device name 

Convert to dev # and unit # 

Br if we don't recognize the device name 

Get index # and unit # 

Get unit # to low byte 

Set unit # in channel block 

Clear all but device index number in RO 

Store device index # into CSW 



Signal success on return 



I 



TSINIT " 
SETCHN - 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



TSX startup initiaiiz MACRO V05. 04 Thursday 17-Dec-S7 08:39 Page 78 
Copy RT-11 channel information into TSX system chan 



024616 
024620 
024622 
024624 



024626 



024644 
024646 
024652 
024672 
024674 
024712 
024716 
024722 
024724 
024730 
024732 
024734 
024740 



024742 
024744 
024746 
024750 



024760 
024766 
024770 
024774 



010146 
010246 
010346 



011103 
042703 

060003 

013703 
020063 
001404 
162703 
002372 
000407 
042711 
050311 



012603 
012602 
012601 
000207 



. SBTTL SETCHN — Copy RT~1 1 channel information into TSX system chan 

SETCHN is called to set up a TSX system channel block to access a file 
that has been opened using RT-11. The device index number is converted 
from the RT-11 device number to the corresponding TSX device number. 
Note: the channel must have been opened with a . lookup <not . enter) 
to use this routine. 

Inputs: 
Channel # 1 = Open to file of interest. 

RO = Address of TSX channel block which is to be set up. 
R2 = Rad~50 devicp namp, 

Outputs: 
Channel block pointed to by RO is set up for future TSX I/O. 
Channel # 1 is closed. 



SETCHN: MOV 
MOV 
MOV 
MOV 



Rl, -<SP) 
R2, -<GP) 
R3, -<SP> 
RO, Rl 



177701 



ooooooe 

0000000 
000002 



000076 



1$: 



2*: 



; GET ADDRESS OF TSX CHANNEL BLOCK 

Do . SAVESTATUS to store channel information into TSX channel block. 

. SAVEST #AREA, #1,R1 ; STORE CHANNEL STATUS INTO TSX CHANNEL BLOCK 

Now convert RT-11 device table index number into corresponding TSX 
device table index number. 

GET CSW FOR CHANNEL 

GET RT-11 DEVICE INDEX NUMBER 

GET RT-11 OFFSET TO PNAME TABLE 

GET ADDRESS OF NAME OF DEVICE IN PNAME TABLE 

GET NAME OF DEVICE FROM RT-ll 

GET INDEX # FOR LAST TSX DEVICE 

LOOK FOR DEVICE IN OUR TABLES 

BR IF FOUND 

CHECK NEXT ENTRY 

BR IF MORE TO CHECK 

VERY STRANGE THAT WE DIDN'T FIND IT 

CLEAR OUT RT-11 DEVICE # 

STORE TSX DEVICE # 



MOV 


<R1),R3 


BIC 


#-^C76, R3 


. GVAL 


#AREA, #404 


ADD 


RO, R3 


. GVAL 


#AREA, R3 


MOV 


NUMDEV, R3 


CMP 


RO, PNAME <R3) 


BEQ 


2* 


SUB 


#2, R3 


BGE 


1* 


BR 


MTSXDV 


BIC 


#76, <R1> 


BIS 


R3, (Rl) 


Finished 




MOV 


<SP)+, R3 


MOV 


<SP)H-, R2 


MOV 


(SP)+,R1 


RETURN 





Error: Could not locate Rt~ll device number in TSX device table. 



010200 
004737 



02550* 



MTSXDV: .PRINT #TSXHD 

. PRINT #REQMIS 

MOV R2, RO 

CALL PRTR50 

.PRINT #CRLF 



PRINT ERROR MESSAGE 
Missing a required device 
GET RAD50 DEVICE NAME 
DISPLAY DEVICE NAME 



1 
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SETCHN — Copy RT-11 channel information into TSX system chan 

58 025002 000137 004250' JMP INISTP ; ABORT INITIALIZATION 



4 
i 



TSINIT " 


— TSX 5 


tartup initializ 


SETSY - 

1 

2 
3 


— Set u 


p information ab 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


025006 


010146 




15 


025010 


010246 




16 








17 








18 








19 


025012 






20 


025032 


010037 


OOOOOOG 


21 








22 








23 








24 


025036 






25 


025056 


010002 




26 


025060 






27 


025100 


060002 




28 


025102 






29 


025120 


013701 


0000000 


30 


025124 


020061 


0000000 


31 


025130 


001405 




32 


025132 


162701 


000002 


33 


025136 


002372 




34 


025140 


010002 




35 


025142 


000703 




36 


025144 


010137 


OOOOOOG 


37 








38 








39 








40 


025150 


1 1 3702 


0000010 


41 


025154 


062702 


000036 


42 


025160 


066102 


OOOOOOG 


43 


025164 


010237 


0000000 


44 








45 








46 








47 


025170 


012602 




48 


025172 


012601 




49 


025174 


000207 





Thursday 17-Dec~S7 08:39 Page 79 



. SBTTL SETSY — Set up information about SY device 

SETSY is called to set up information about the SY device. 

It does this by determining what device RT-11 recognizes as SY. 

Inputs: 
R5 = Address of base of free memory area 

Outputs: 
SYNAME = RAD50 spec for physical system disk 
SYINDX = TSX device table index for SY device 
SYUNIT = SY device unit number 



I 



SETSY: 



MOV 
MOV 



Rl, -<SP) 
R2, -<SP) 



Set up system device unit number 



. GVAL 
MOV 



#AREA, #274 
RO, SYUNIT 



; Get system unit # from RT-11 <high byte) 
; Set system unit number 



Set up system device index number 



1*: 



. GVAL 


#AREA, #364 


MOV 


RO, R2 


. GVAL 


#AREA. #404 


ADD 


RO, R2 


. GVAL 


#AREA, R2 


MOV 


NUMDEVi R 1 


CMP 


RO, PNAME<R1) 


BEQ 


2* 


SUB 


#2, Rl 


BGE 


1* 


MOV 


RO, R2 


BR 


MTSXDV 


MOV 


Rl, SYINDX 



Set up RAD50 name of SY disk 



MOVE 


SYUNIT+1, R2 


ADD 


#36, R2 


ADD 


PNAME<R1),R2 


MOV 


R2, SYNAME 


F i 11 i s h e d 




MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





Get RT-11 system device index number 

Save device index number 

Get offset within RMON of PNAME table 

Get offset to name of SY device 

Get name of RT~11 system device 

Get index to last TSX-Plus device entry 

Search for device in TSX tables 

Br if found it 

Keep looking if more 

•Save name of system device 

; Missing device error 

i Store index # of TSX-Plus system device 



GET SYSTEM UNIT NUMBER 

PUT IN "0" AS 3'RD CHARACTER OF NAME 

ADD DEVICE NAME 

THIS IS THE FULL SY DISK NAME 
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RTFTCH — Fetch a RT-11 device handler 



1 

2 
3 

5 
6 
7 
S 
9 
iO 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL RTFTCH 



Fetch a RT-11 device handler 



025176 010046 
025200 010246 
025202 010546 



025204 010037 000130' 



025210 

025222 103425 



025J 



005737 000116' 



025230 001021 



025232 013702 000152' 

025236 013700 000114' 

025242 020037 000154' 

025246 101405 



025250 060500 

025252 020037 000132' 

025256 101013 

025260 010502 



025262 

025272 103401 



RTFTCH is called to fetch an RT--11 device handler. 

if the handler is already residents nothing is done. 

If the handler will fit in WRKBUF, it is fetched into there. 

If the handler tuill not fit in WRKBUF, it is fetched into the top 

of memory. 



Inputs: 
RO = RAD50 device name. 
R5 = Address of start of free memory. 

Outputs: 
C-flag cleared ==> Fetch was successful. 
C-flag set ==> Error on fetch. 



RTFTCH: MOV 
MOV 
MOV 



RO, -<SP) 
R2, -<SP) 
R5, -(SP> 



Set the name of the device being fetched 

MOV RO, FETDEV i Set name of device whose handler to fetch 

Do a . DSTAT to get information about the handier 

. DSTAT #DSTBLK, #FETDEV i Get information about the device handler 
BCS 9* J Br if device not recognized 

Determine if the handler is currently resident 



TST 
BNE 



DSTBLK+4 
8* 



i Is the handler resident now? 
i Br if yes 



The handler is not currently resident. 
See if it will fit in WRKBUF. 



MOV 


WRKBUF, R2 


MOV 


DSTBLK+2, RO 


CMP 


RO, WRKSIZ 


BL.OS 


1* 



i Set address where handler will be loaded 

; Get the size of the handler 

iWill handler fit in WRKBUF? 

i Br if handler will fit in WRKBUF 



Handler will not fit in WRKBUF. 

See if there is room to load it into the top of memory. 



ADD 


R5, RO 


CMP 


RO, TOPMEM 


BHI 


10* 


MOV 


R5, R2 



1*: 



Fetch the handler 

. FETCH R2, #FETDEV 
BCS 9* 



Get address above top of area needed 

Is there room for handlerT' 

Br if not 

Set address where handler is to be loaded 



; Try to fetch the handler 
;Br if error on fetch 



We successfully fetched the handier 



I 
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58 025274 000241 

59 

60 

61 

62 025276 012605 

63 025300 012602 

64 025302 012600 

65 025304 000207 
66 

67 
68 
69 025306 004737 025332' 



8*: CLC 
Fini shed 
9*: 



; Signal success on return 



MOV 
MOV 
MOV 
RETURN 



(SP)+, R5 
<SP)+, R2 
<SP)+>RO 



; Insufficient memory available to load the handler 

10*: CALL SIZERR j Generated system is too big — abort 
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CHKMEM — Check for memory space overflow 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

20 

29 

30 



SBTTL CHKMEM 



Check for memory space overflow 



025312 020037 000302' 

025316 103402 

025320 004737 025332 ' 

025324 004737 025352' 

025330 000207 



025332 
025340 
025346 000137 004250' 



025352 005737 000040' 

025356 001402 

025360 000137 004250' 

025364 000207 



CHKMEM is called to make sure u»e have not overflowed the available memory 

space while allocating space for TSX. 

If a memory overflow occurs* an error message is printed and 

the initialization is aborted. 



Inputs: 
RO = Address to be tested for validity. 



CHKMEM: CMP 
BLO 
CALL 

1$: CALL 

RETURN 



RO, MEMLIM 
1* 

SIZERR 
CCATST 



i IS THE ADDRESS OK? 

i BR IF OK 

; Generated system is too big 

; CHECK FOR -C ABORT REQUEST 



abort 



Generated system is too big. Abort the initialization. 



SIZERR: .PRINT #TSXHD 
-PRINT #TOOBIG 
JMP INISTP 



; PRINT MESSAGE HEADING 
i PRINT ERROR MESSAGE 
; ABORT INITIALIZATION 



Check for control~C and abort initialization if requested. 



CCATST: 


TST 


CCAFLG 




BEQ 


1* 




JMP 


INISTP 


1*: 


RETURN 





;DID USER REQUEST -^C ABORT? 

i BRANCH IF NOT 

iELSE ABORT INITIALIZATION 



€ 

< 

i 
c 



I 



TSINIT 
PRTOCT 



— TSX startup initializ MACRO V05. 04 

— Print octal value 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 



025366 
025370 
025372 
025374 
025400 
025402 
025406 
025410 
025412 
025416 
025422 
025426 
025430 
025432 
025434 



010146 
010246 
010001 
012702 
005000 
073027 
000403 
005000 
073027 
062700 

077210 
012602 
012601 
000207 



000006 



000001 



000003 
000060 



. SBTTL PRTOCT — Print octal value 

PRTOCT is called to print an octal value without trailing Cr-Lf. 

Inputs: 
RO -- value to be priiitt'd. 



;GET VALUE TO PRINT 
J PRINT 6 DIGITS 

iOET 1ST OCTAL DIGIT <1 BIT) 

; INITIALIZE FOR SHIFT 

; SHIFT AN OCTAL DIGIT INTO RO 

; CONVERT TO ASCII CHARACTER 

; PRINT THE CHARACTER 

iLOOP AND PRINT MORE DIGITS 



PRTOCT: 


MOV 


R 1 , - ( SP ) 




MOV 


R2, -<SP) 




MOV 


RO, Rl 




MOV 


#6, R2 




CLR 


RO 




ASHC 


#1,R0 




BR 


2« 


1*: 


CLR 


RO 




ASHC 


#3, RO 


2*: 


ADD 

. TTYOUT 


#'0, RO 




SOB 


R2. 1* 




MOV 


(SP)+, R2 




MOV 


(SP)+,R1 




RETURN 





i 



TSINIT - 


— TSX s 


tartup initiaii 


PRTDEC - 

1 
2 
3 


— Print 


decimal 


value 








4 








5 








6 








7 








8 








9 


025436 


010146 




10 


025440 


005046 




11 








12 








13 








14 


025442 


010001 




15 


025444 


005000 




16 


025446 


071027 


000012 


17 


025452 


062701 


000060 


IS 


025456 


010146 




19 


025460 


010001 




20 


025462 


001370 




21 








22 








23 








24 


025464 


012600 




25 


025466 


001403 




26 


025470 






27 


025474 


000773 




28 








29 








30 








31 


025476 


012601 




32 


025500 


000207 
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. SBTTL PRTDEC — Print decimal value 



PRTDEC is called to print a decimal value with leading zeroes suppressed 
and uiith no trailing Cr -Lf. 



Inputs: 
RO = Value to be printed 



PRTDEC: MOV 
CLR 



R 1 , - < SP ) 
-<SP) 



;NULL ON STACK TO STOP US 

Convert value to ascii digit string and stack the digits. 



1*: 



MOV 
CLR 
DIV 
ADD 
MOV 
MOV 
BNE 



RO, Rl 

RO 

#10. , RO 

#'0, Rl 

Rl, -(SP> 

RO, Rl 

1* 



GET VALUE TO BE CONVERTED 

SET HIGH-ORDER PART OF VALUE TO 

DIVIDE RO-Rl BY 10. 

CONVERT REMAINDER TO ASCII DIGIT 

AND STACK THE DIGIT 

GET QUOTIENT 

BR IF MORE DIGITS TO CONVERT 



Finished conversion. Print result. 



2$: MOV (SP)+, RO 

BEQ 3* 
. TTYOUT 

BR 2* 

Finished 

3*: MOV <SP)+, Rl 
RETURN 



GET A DIGIT FROM THE STACK 
BR IF REACHED END 
PRINT THE DIGIT 
PRINT MORE 



TSINIT - 


— TSX s 


tar tup initializ 


PRTR50 - 

1 
2 
3 


■- Print 


Rad-50 


val ue 








4 








5 








6 








7 








8 


025502 


010146 




9 


025504 


010246 




10 








11 








12 








13 


025506 


012702 


000003 


14 


025512 


010001 




15 


025514 


005000 




16 


025516 


071027 


000050 


17 


025522 


116101 


003464 ' 


18 


025526 


010146 




19 


025530 


010001 




20 


025532 


077210 




21 








22 








23 








24 


025534 


012702 


000003 


25 


025540 


012600 




26 


025542 






27 


025546 


077204 




28 








29 








30 








31 


025550 


012602 




32 


025552 


012601 




33 


025554 


000207 




34 








35 








36 








37 


025556 






38 
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. SBTTL PRTR50 — Print Racl-50 value 

PRTR50 is called to print a Rad-50 value. 

Inputs: 
RO = value to be printed. 



i 
f 



PRTR50: MOV 
MOV 



Ri, -<SP) 
R2, -<SP) 



1$: 



Convert value to ascii string and stack the characters. 



GET # CHARS TO CVT 

GET VALUE TO BE CONVERTED 

CLEAR HIGH-ORDER VALUE 

DIVIDE RO-Rl BY 50 

CONVERT REMAINDER TO ASCII CHARACTER 

STACK THE CHARACTER 

GET QUOTIENT 

BR IF MORE CHARS TO CONVERT 



Finished conversion. Print the result. 



MOV 


#3, R2 


MOV 


ROiRl 


CLR 


RO 


DIV 


#50, RO 


MOVE 


R50CHR(Ri),Rl 


MOV 


R1,-<SP) 


MOV 


RO, Rl 


SOB 


R2> 1* 



MOV #3, R2 
?*: MOV (SP)+, RO 
. TTYOUT 
SOB 

Finished 



GET # CHARS TO PRINT 

GET NEXT CHARACTER 

PRINT THE CHARACTER 

LOOP IF MORE CHARS TO PRINT 



MOV 
MOV 
RETURN 



(SP)+, R2 
<SP)+, Rl 



Define top of TSINIT 
INITOP: 



€ 
€ 
€ 



TSINIT — TSX startup initializ 
PRTR50 — Print Rad-50 value 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 

17 025562 
IS 025564 

19 025566 

20 025570 

21 025572 

22 025574 

23 025576 

24 025600 
025604 
025612 
025616 
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025556 
025560 



25 

26 



27 
28 
29 
30 
31 

32 025622 

33 025626 

34 025632 

35 025636 

36 025642 

37 025646 

38 025650 

39 025652 

40 025654 

41 025660 
42 

43 
44 
45 
46 

47 025664 

48 025670 

49 025674 

50 025700 

51 025704 

52 025710 

53 025712 

54 025714 

55 025720 

56 025722 

57 025724 



177740 
026066 ' 



010146 
010246 
010346 
010446 
010546 
012700 
073472 
074037 
013737 
012700 
004737 



173600 
012701 
012702 
010237 
005437 
013700 
112122 
005201 
077003 
012700 
004737 



026126' 
026126' 
025556' 
026254 ' 



173600 
026130' 
025560 ' 
025556' 
025556' 



025556' 
026170' 



012701 
012702 
012704 
013703 
004737 
122122 
001014 
004737 
011405 
074005 
010524 



026130' 
026066 ' 
OOOOOOG 
025556' 
026060 ' 



026456 ' 



. IF 



NE. PROCID 



iOnly assemble for protected Pro 350 version 



c 



The following startup code is only included for the Pro version, 
it IS loaded here and executed very early during initialization 
and subsequently overwritten by I/O buffers. 



. SBTTL INSCHK 
. MCALL . PRINT 



OOOOOOG 



; Reserve an 


avQ block area for encr 


EDAROB: . WORD 


-32. 


EDADDR: . WORD 


DSKBUF 


> Recover license number and decrypt 


INSCHK: MOV 


Rl, -<SP) 


MOV 


R2, -<SP) 


MOV 


R3, -(SP) 


MOV 


R4, -<SP) 


MOV 


R5, -<SP> 


MOV 


<PC)+, RO 


. RAD50 


/SCB/ 


XOR 


RO, LICNUM 


MOV 


LIGNUM, TSXSIT 


MOV 


#EDARGB, RO 


CALL 


EDMTH3 



Installation validation subroutines for Pro-350 



i# OF BYTES TO BE DECRYPTED (EDMTH3) 
; POINTER TO BUFFER TO BE DECRYPTED 

disk image of Pro ID to intermed. state 

J SAVE REGISTERS 



DECRYPT LICENSE NUMBER 

WITH THIS CODE 

BY XORING IT 

MOVE LICENCE NUMBER TO TSGEN CELL 

POINT TO ENC/DEC ARG BLOCK (PRESET) 

DECRYPT TO INTERMED STATE 



Copy Pro ID ROM lou; bytes into memory/ and encrypt 1 step 



IDADDR = 173600 



; ADDRESS OF START OF PRO 350 ID ROM 



MOV 


#IDADDR. Rl 


MOV 


#ROMBUF, R2 


MOV 


R2, EDADDR 


NEG 


EDARGB 


MOV 


EDARGB, RO 


MOVB 


(Rl)+, (R2> «• 


INC 


Rl 


SOB 


RO, 3* 


MOV 


#EDARGB, RO 


CALL 


EDMTH2 



ID 



GET POINTER TO PRO ID ROM 
POINTER TO COPY OF HARDWARE 
SAVE ADDRESS FOR ENCRYPTION 
MAKE +32. FOR ENCRYPTION 
ALSO USE AS LOOP COUNTER 
3$: MOVB (Rl)+. (RP)J- ; GET NEXT LOW BYTE 

SKIP ID ROM HIGH BYTES 
REPEAT THROUGH 32 BYTE ROM 
POINT TO ENCRYPTION ARG BLOCK 
PERFORM METHOD 2 ENCRYPTION 

Have intermediate state of both hardware and disk copies of Pro ID 
in memory. Verify them against each other and correct memory image 
of SCHED at the same time. 

POINT TO HARDWARE COPY OF ID 
POINT TO DISK COPY OF ID 
POINT TO CODE TO BE CORRECTED 
I NIT LOOP COUNTER 

USE Lie # AS SEED FOR EDPRNW, IN RO 
4$: CMPB (Rl)+, (RP)+ iVERIFY ID'S ARE THE SAME 

ABORT IF NO MATCH ON ANY BYTE 

RANDOMIZE RO FOR XOR (LIC# INIT SEED) 

GET ENCRYPTED CODE 

RESTORE FUNCTIONAL CODE 

PUT DECRYPTED CODE BACK IN MEMORY 



MOV 


#ROMBUF, Rl 


MOV 


#DSKBUF, R2 


MOV 


#SCHED, R4 


MOV 


EDARGB, R3 


CALL 


GETLIC 


CMPB 


(Rl)+, (RP) 


BNE 


5* 


CALL 


EDPRNW 


MOV 


€R4, R5 


XOR 


RO, R5 


MOV 


R5, (R4) + 



I 
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58 025726 

59 025730 

60 025732 

61 025754 

62 025736 

63 025740 

64 025742 
65 

66 025744 

67 025752 

68 025760 
69 

70 

71 025764 

72 

73 

74 

75 

76 

77 

78 026060 

79 026064 
SO 

81 
82 
83 

84 026066 

85 026126 

86 026130 



077310 
012605 
012604 
012603 
012602 
012601 
000207 



000137 004250' 



124 



150 



013700 
000207 



026126' 



SOB 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



R3, 4* 
(SP)+, R5 
<SP)+, R4 
<SP)+, R3 
<SP)+, R2 
<SP)+,R1 



5*: 



. PRINT #TSXHD 
.PRINT #NOTLIC 
JMP INISTP 



; REPEAT THROUGH ID TESTS 
i RESTORE REGISTERS 



i ID CHECKS AND CODE DECRYPTED 

?TSX-F 

NOT LICENSED FOR THIS MACHINE 

ID'S DON'T MATCH. ABORT INIT. 



f 
f 



. NLIST BEX 

151 NOTLIC: . ASCIZ /This copy of TSX-Plus not licensed for use on this machine / 

. LIST BEX 
. EVEN 

Subroutine to recover incremental license number. Assume it has been 
decrypted already by XORing with . RAD50 /SCB./. 



GETLIC: MOV LICNUM, RO 
RETURN 



; RETRIEVE DECRYPTED LIC # INTO RO 



Reserve room for both disk and hardware copies of the Pro ID number 
and for the incremental license number 



000000 



DSKBUF 
LIGNUM 
ROMBUF 



. BLKB 
. WORD 
. BLKB 



32. 



32. 



DISK IMAGE OF PRO ID 
INCREMENTAL LICENSE NUMBER 
COPY OF ROM ID LOW BYTES 



i 
i 

4 

i 

4 



i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 

38 026170 

39 026170 

40 026172 

41 026174 
42 

43 
44 

45 026176 

46 026200 

47 026202 

48 026206 

49 026210 

50 026214 

51 026216 

52 026222 
53 

54 
55 

56 026224 

57 026230 



010146 
010246 
010346 



012003 
011001 
004737 
010002 
042702 
005202 
004737 
077203 



004737 
111102 



026060 



177770 



026456' 
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ggf-fL. EDEXPL — Comments on encryption methods 



Encryption and decryption methods used here depend heavily on 
pseudo-random numbers generated by the linear congrutential method. 
See Hull and Dobell, SIAM Reviem. 4> 230, 1962. 

For the linear congruence relation: 

X(I> == < A # X<I--1) + C ) MOD M 

X<1) is in the range to M~l 

The sequence has full period Mi provided that: 

1) C is relatively prime to M 

2) If p is a prime factor of M, A MOD p == 1 

3) If 4 is a factor of M, A MOD 4 == 1 

In the special case where M is a pouier of 2, these rules simplify to 

1) C must be odd 

2) A MOD 4 == 1 

. SBTTL EDMTH2 — Encryption method 2 <XOR with PRN high bytes) 

Using the license number as the initial seed/ mask out the low 3 bits. 
add 1 and call the PRN generator this many times to form the seed* 
XOR each byte in the input buffer with the high byte of the next PRN 
and replace the result in the input buffer. Decryption is accomplished 
by a second application of the same process. 

Inputs: 

RO Points to an arg block of the form: 

RO > buff__siz i word holding byte length of buffer 

buf f„addr ; address of buffer to be encrypted 
Outputs; 

RO Randomized 
input buffer encrypted 



EDMTH2 



MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2. -<SP) 
R3, -(SP) 



•> Save reg isters 



2*: 



Fetch byte count/ buffer pointer and initialize PRN seed 

Fetch byte count of input buffer 

Fetch pointer to input buffer 

Use license number as initial PRN seed 

Copy license number to form repeat count 

No more than 8 repeats 

Make sure there is at least one 

Get a new PRN 

Advance the seed between 1 and 8 times 

Now sweep the buffer/ XORing each byte with the high PRN byte 



MOV 


(R0)+/R3 


MOV 


(R0>/R1 


CALL 


GETLIC 


MOV 


RO, R2 


BIC 


#•'••07/ R2 


INC 


R2 


CALL 


EDPRNW 


SOB 


R2/2* 



026456' 



1*: 



CALL 
MOVB 



EDPRNW 
<R1),R2 



/With seed in RO, get next random number 
/Get next input byte 
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58 026232 

59 026234 

60 026236 

61 026240 

62 026242 
63 

64 026244 

65 026246 

66 026250 

67 026252 



000300 
074002 
000300 
110221 
077310 

012603 
012602 
012601 
000207 



SWAB 


RO 


XOR 


RO, R2 


SWAB 


RO 


MOVB 


R2> <R1) + 


SOB 


R3, 1* 


MOV 


<SP>+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+,R1 


RETURN 
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; Reverse PRN high and loui bytes 

iEncrypt the byte 

; Restore PRN high and low bytes for next seed 

j Save encrypted bytes back into input buffer 

; Repeat for entire input buffer 

; Restore registers 



i 



TSINIT - 
EDMTH3 - 

1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 

13 
14 
15 
16 
17 
18 
19 
20 

22 
23 
24 
25 



- TBX startup initiaiiz MACRO V05. 04 ThurBday 17-Dec-87 08:39 

- Encryption/decryption meth 3 (swap by tes8<5h i-Pt bits) 
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27 



026254 
026256 
026260 

28 026262 

29 026264 

30 026266 

31 026270 
32 

33 026272 

34 026274 

35 026276 

36 026300 

37 026302 
38 

39 026306 

40 026310 

41 026314 

42 026320 

43 026322 

44 026324 

45 026326 

46 026330 

47 026332 
48 

49 026334 

50 026340 
51 

52 026342 

53 026346 
54 

55 026350 

56 026352 
57 



010146 
010246 
010346 
010446 
010546 
012003 
011046 

010300 
002002 
005400 
005203 
004737 

006203 
004737 
004737 
005703 
001446 
005004 
005005 
011601 
010102 

004737 
060001 

004737 
060002 

010046 
042700 



. SBTTL EDMTH3 — Encryption/decryption meth 3 (swap bytes&shift bits) 

Using a prn of repeat length same as input string length* select prn 

numbered bytes from the input string, combine them into a word* 

shift the combined bytes a random number of bits, recombine the shifted 

bits and set the confused bytes back into the prn selected string bytes. 

Sign of the byte count indicates: + = encryption; - = decryption. 

If the byte count is O or 1, no encryption occurs. If the byte count is 

odd, then one random selected byte uiill not be encrypted. 



Inputs: 
RO 



Points to an arg block of the form: 



RO 



buff s i z 



buff_addr 
Outputs: 

RO Randomized 

Input buffer encrypted 



026506 



026060 ' 
026532 ' 



026532 ' 



026532 ' 



177771 



EDMTH3: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

} Initial i ze 
MOV 
BGE 
NEG 
INC 

1*: CALL 

J Start encr 
ASR 
CALL 
CALL 

2$ : TST 
BEO 
CLR 
CLR 
MOV 
MOV 

.: Select fir 
CALL 
ADD 

i Select sec 
CALL 
ADD 

i Use part o 
MOV 
BIC 

; Select enc 



of desired 



R 1 , - < SP ) 

R2, -(SP) 

R3, -(SP) 

R4, -(SP) 

R5, -(SP) 

(R0)+, R3 

@R0, -(SP) 
prn generator 

R3, RO 

1« 

RO 

R3 

INPRNM 
yption loop through string 

R3 

GETLIC 

EDPRNM 

R3 

9* 

R4 

R5 

©SP, Rl 

Rl, R2 
st random byte 

EDPRNM 

RO, Rl 
ond random byte 

EDPRNM 

RO, R2 
f PRNM as semi-r 

RO, -(SP) 

#■"•06, RO 
ryption or decry 



Word holding byte length of buffer. 
Note that buffer must be 512 or less 
in length. Flag encryption by using 
positive byte count < 2 to 512. ). 
Flag decryption by using negative 
byte count (-2 to —512. ). 

Address of buffer to be encrypted 



j Save registers 



f 
I 



i Save the string 
i And save the in 
length 
; Recover string 
J Branch if encry 
j If decryption, 
; If neg, correct 
i Set up for desi 

i Repeat for 1/2 
i Get lie. num. f 
i Seed PRN genera 
i Less than 2 by t 
;Quit if so (odd 
i Clean out shift 



length 
put buffer pointer 

length 

ption 

get real repeat- 

for ASR round douin 
red repeat length 

the string length 
or initial seed in RO 
tor (-adjacent pairs) 
es left? 

len -> 1 byte unch. ) 
ing registers 



; Retrieve buffer pointer 
; And second copy 

; Randomize in range - <strlen-l> 
; Point to first random byte of pair 

; Randomize again 

iPoint to next random byte 

andom shift amount 

J Save EDPRNM seed for later 

i Get a semi-random shift amount 

ption 



TSINIT - 


— TSX 5 


tartup 


EDMTH3 ■ 


— Encryption/d 


58 


026356 


005703 


59 


026360 


100411 


60 






61 


Uk.'6J6i:.' 


lt>llU4 


62 


026364 


000304 


63 


026366 


151204 


64 


026370 


000241 


65 


026372 


006004 


66 


026374 


006005 


67 


026376 


005400 


68 


026400 


005303 


69 


026402 


000407 


70 






71 


026404 


151105 


72 


026406 


000305 


73 


026410 


151205 


74 


026412 


000241 


75 


026414 


006105 


76 


026416 


006104 


77 


026420 


005203 


78 






79 


026422 


073400 


80 


026424 


050504 


81 


026426 


012600 


82 






83 


026430 


110412 


84 


026432 


000304 


85 


026434 


110411 


86 


026436 


000730 


87 






88 


026440 


012600 


89 


026442 


012605 


90 


026444 


012604 


91 


026446 


012603 


92 


026450 


012602 


93 


026452 


012601 


94 


026454 


000207 
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TST 

BMI 
; Do this part 

BISB 

SWAB 

BISB 

CLC 

ROR 

ROR 

NEG 

DEC 

BR 
i Do this part 
3*; BISB 

SWAB 

BISB 

CLC 

ROL 

ROL 

INC 
; Shift and rec 
4*: ASHC 

BIS 

MOV 
i Nou» put encry 

MOVB 

SWAB 

MOVB 

BR 
; DoTie^ restore 
9«: MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

RETURN 



R3 

3« 

for encryption 

@R1,R4 

R4 



R4 

R5 

RO 

R3 

4* 

for decryption 

©Rl, R5 

R5 

@R2, R5 



R5 
R4 
R3 
omb 
RO, 
R5, 
(SP 
pte 
R4, 
R4 
R4, 
2* 
re 
(SP 
<SP 
<SP 
(SP 
(SP 
(SP 



ine the ■(en!de>cry 

R4 

R4 

)+, RO 

d bytes back into 

@R2' 

SRI 

gisters and return 

)+, RO 

)+, R5 

)+, R4 

)+, R3 

) +. R2 

)+, Ri 



; Positive for encryption 
i Branch if decrypting 

Get first byte without sign extend 

And put it in the high byte 

Combine it uiith first byte 

Always do at least one shift 

Shift once 

Get low bit into r5 

Right shifts for encryption 

Reduce count of pairs remaining 

Skip decryption stuff 



Get first byte without sign extend 
And put it in the high byte 
Combine it with the first byte 
Always do at least one shift 
Shift once 

Get high bit into R4 
Reduce count of pairs remaining 
pted bytes 

jShift combined bytes Oi 2, 4 or 6 more 

i Recombine bytes 

i Recover EDPRNM seed 
input string 

; Store low byte at second byte place 

; Get high byte 

i Store high byte at first byte place 

; Repeat through string 



J Just pop saved buffer address 
; Restore registers 



i 



TSINIT - 


— TSX 5 


tar tup 


EDPRNW " 

1 

2 
3 
4 


— Pseud 


o rando 






5 






6 






7 






8 






9 






10 






11 






12 


026456 




13 


026456 


010446 


14 


026460 


010546 


15 


026462 


010004 


16 


026464 


012700 


17 


026466 


104375 


18 


026470 


070400 


19 


026472 


062705 


20 


026474 


012705 


21 


026476 


010500 


22 


026500 


012605 


23 


026502 


012604 


24 


026504 


000207 
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. SBTTL EDPRNW — PBeudo random number generator with MOD 2'^16 

Linear congruential pseudo-random number generator with maximum repeat 
length o¥ 65536 (2'^16). cf. Hull and Dobeli and Knuth, vol 2. 



Inputs: 
RO 

Outputs: 
RO 



EDPRNW: 



EDPRNA: 



EDPRNC: 



MOV 

MOV 

MOV 

MOV 

. WORD 

MUL 

ADD 

. WORD 

MOV 

MOV 

MOV 

RETURN 



Seed value 



New PRNj should be used for next seed 



R4, - < SP ) 
R5, -(SP) 
RO, R4 
<PC)+, RO 
104375 
RO, R4 
(PC)+,R5 
012705 
R5, RO 
<SP)+, R5 
(SP)+, R4 



; Save registers 

i Get seed to be multiplied 

; Fetch multiplier 

j Multiplier, can be replaced 

^Multiply by A 

; Add C 

jAdditive, can be replaced 

J Return result mod 65536. as 

j Restore registers 



PRN 



i 
t 

i 
i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



026506 
026506 
026514 
026522 
026530 



012737 
012737 
012737 
000207 



000040 
000005 
000003 



026574 ' 
026562 ' 
026566 ' 



. SBTTL INPRNM — Initialize PRN generator with repeat range M 

Using the Hull and Dobell rules* determine acceptable values for 
A and C to get a repeat range of M. 



Outputs: 

EDMULA 
EDADDC 
EDMODM 



INPRNM: 



MOV 
MOV 
MOV 
RETURN 



Set with first acceptable multiplier 

Set with first acceptable additive factor 

Set with desired repeat length 



#32. , EDMODM 
#5, EDMULA 
#3, EDADDC 



; Get repeat length 
j Use first valid A 
;And first valid C 



to cover Pro ID 






TSINIT • 


— TSX s 


tartup initializ 


EDPRNM - 


— Generate pseu 


do-rando 


1 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 


026532 






17 


026532 


010446 




18 


026534 


010546 




19 


026536 


020037 


026574 ' 


20 


026542 


103405 




21 


026544 


010005 




22 


026546 


005004 




23 


026550 


071437 


026574' 


24 


026554 


010500 




25 


026556 


010004 




26 


026560 


070427 




27 


026562 


061125 




28 


026564 


062705 




29 


026566 


033031 




30 


026570 


005004 




31 


026572 


071427 




32 


026574 


000400 




33 


026576 


010500 




34 


026600 


012605 




35 


026602 


012604 




36 


026604 


000207 




37 








38 








39 








40 








41 








42 








43 








44 


026606 






45 


000000 






46 




000001 




Errors d 


etected 


: 





M 



SBTTL EDPRNM 



Page 90 



Generate pseudo-random number in specified range M 



I 
f 



« INPRNM MUST BE CALLED BEFORE FIRST SEED IS PASSED TO THIS ROUTINE!!!! * 

Using linear congruential method (cf. Hull and Dobell), generate 
pseudo-random number using seed passed in RO. Return new PRN in RO. 



Inputs: 
RO 

Outputs: 
RO 



Seed value, must be in range to M (EDMODM) 

Neu pseudo-random number* should be used for next seed 



EDPRNM: 



1*: 

EDMULA: 
EDADDC : 

EDMODM: 



MOV 

MOV 

CMP 

BLO 

MOV 

CLR 

DIV 

MOV 

MOV 

MUL 

. WORD 

ADD 

. WORD 

CLR 

DIV 

. WORD 

MOV 

MOV 

MOV 

RETURN 



R4. -<SP) 
R5, -<SP) 
RO, EDMODM 
1* 

RO, R5 
R4 

EDMODM, R4 
R5, RO 
RO, R4 
<PC)+, R4 
25173. 
<PC)+, R5 
13849. 
R4 

(PC)+, R4 
256. 
R5, RO 
<SP>+, R5 
<SP)+, R4 



i Save R4 and R5 

; Is seed in range to EDMODM? 

;Branch and proceed if so 

;Set up to divide it by EDMODM 

;Set up for divide 

; Divide it 

; And use remainder as seed 

; Get current seed ready to be multiplied 

^Multiply by chosen A 

; Replace at run-time with 5 

iAdd in C 

; Replace at run-time with 3 

iClear high word for division 

> Perform mod M 

; Replace at run-time with 32. 

; Return remainder 

; Restore R4 and R5 



. IFF 
DSKBUF: 
. ENDC 



3 Assemble if protection code not included 
i Define dummy DSKBUF global symbol 



J NE, PROCID 

jNE,PROCID 

Address of real top of TSINIT, including PRO init code 

PROITP: 

. CSECT TSXEND 
. END 



**« Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 11342 

Size of core pool: 17920 

Operating system: RT-ll 



Words ( 45 Pages) 
Words ( 70 Pages) 



Elapsed time: 00:02:08.36 



i 
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DK: PROASM, LP: PROASM^DK: PROASM, TSINIT/C/N: SYM 

I 
f 
f 

€ 

€ 

f 

i 

i 

4 

€ 

€ 
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*8BIT 
*DEAD 

•fl l-rt M I 

*HARD 

*MEMSZ 

$NOIN 

*OVRH 

*PHONE 

*SXON 

*TAB 

... VI 



. VJ 



AHEND 

ALBFX 

ALCHRB 

ALCOVL 

ALCSLO 

ALCWRK 

ALOCBF 

AREA 



2-129 
2-122 



2-154 
2-141 
2-112 
2-136 
2-109 
2-90 
2-125 
7-29 
24-61 
29-50 
29-72 
30-30 
30-56 
31-B9 
31-131 
39-75 
42-68 
42-83 
43-47 
43-66 
53-25 
57-63 
67-17 
73-30 
74-94 
78-57 
85-66 
7-29 
29-57 
29-70# 
30-43# 
31-85 
31-94# 
39-27 
42-29 
42-72 
42-S2# 
43-47 
43-55# 
53~25# 
57-21# 
60-36 
67-17 
74-25 
78-25# 
2-106 
25-161 
24-142 
67-34 
24-103 
24-138 
24-102 
2-182# 



40-72 
29-27 

A r\ J r-i 

22-26 

45-102* 

22-37 

67-25 

22-35 

40-25 

40-66 
7-29 

24-63 

29-57 

29-84 

30-42 

30-68 

31-90 

31-132 

39-76 

42-68 

42-84 

43-48 

43-76 

53-25 

57-111 

67-17 

73-30 
74-99 
79-19 
85-67 
7-29 
29-57# 
29-70# 
30-43# 
31-85 
31-94# 
39-27 
42-29 
42-72# 
42-82# 
43-47# 
43-55# 
53-25# 
57-21 # 
60-36 
67-17 
74-25 
78-25# 
50-21 
3S-12# 
27-12# 
69-1 5# 
37-12# 
26-12# 
36-14# 

7-29 



38-20 
23-30 



7-45 
24-67 
29-57 
29-95 
30-42 
30-77 
31-90 
31-138 
39-81 
42-72 
42-84 
43-48 
43-77 
53-39 
57-111 
67-51 
73-73 
74-104 
79-24 

7-29# 
29-58 
29-72 
30-47 
31-85# 
31-99 
39-27# 
42-29# 
42-73 
42-83 
43-48 
43-60 
53-39 
57-29 
60-36# 
67~17# 
74-25# 



7-46 
24-78 
29-58 
29-96 
30-43 
30-78 
31-90 
31-139 
39-82 
42-73 
42-84 
43-48 
43-83 
53-39 
59-6 
67-52 
73-74 
74-105 
79-26 

7-29# 
29-58 
29~72# 
30-47 
31-85# 
31-99 
39~27# 
42-29# 
42-73 
42-83# 
43-48 
43-60 
53-39 
57-29 
60~36# 
67~17# 
74-25# 



24-19 

24-176 

29-58 

29-102 

30-43 

30-84 

31-94 

39-21 

42-22 

42-73 

42-91 

43-52 

43-84 

55-25 

59-7 

69-24 

74-25 

75-78 

79-28 

25-243 

29-58# 

30-30 

30-47# 

31-89 

31-99# 

39-62 

42-31 

42-73# 

42-84 

43-48# 

43-60# 

53-39# 

57-29# 

60-50 

69-24 

74-54 



24-23 

25-221 

29-58 

29-103 

30-43 

30-85 

31-94 

39-21 

42-22 

42-73 

42-101 

43-52 

45-151 

55-25 

59-10 

69-24 

74-25 

75-79 

80-27 

25-243 

29-58# 

30-30 

30-47# 

31-89# 

31-99# 

39-62 

42-31 

42-73# 

42-84 

43-48# 

43-60# 

53~39# 

57-29# 

60-50 

69-24 

74-54 



24- 
25- 
29- 
29- 
30- 
31- 
31- 
39- 
42- 
42" 
42- 
43- 
45- 
57- 
60- 
69- 
74- 
78- 
00- 



-31 
-226 

-108 

-47 

"60 

-94 

-21 

■22 

■78 

•102 

•52 

•152 

•21 

•36 

■52 

25 

25 

53 



25-243# 

29-62 

30-30# 

30-55 

31-90 

31-101 

39-62# 

42-3 1# 

42-78 

42-84# 

43-52 

43-65 

55-25 

57-63 

60-50# 

69-24# 

74-54# 



24-32 

25-227 

29-62 

29-111 

30-47 

31-61 

31-99 

39-27 

42-29 

42-78 

42-108 

43-55 

47-76 

57-21 

60-36 

69-53 

74-54 

78-25 

81-20 

25-243# 

29-62 

30-30# 

30-55 

31-90 

31-101# 

39-62# 

42-31# 

42-78 

42-84# 

43-52 

43-65# 

55-25 

57-63 

60-50# 

69-24# 

74-54# 



24-33 

25-243 

29-62 

29-116 

30-47 

31-85 

31-99 

39-27 

42-29 

42-78 

42-109 

43-55 

47-77 

57-21 

60-50 

69-58 

74-54 

78-32 

81-21 



•50 
■62# 



29- 

29- 

30-42 

30-55# 

31-90# 

39-21 

42-22 

42-68 

42-7e# 

43-43 

43-52# 

51-76 

55-25# 

57-63# 

61-35 

73-30 

74-81 



24-36 

25-243 

29-70 

29-119 

30-55 

31-85 

31-101 

39-62 

42-31 

42-82 

43-43 

43-60 

51-76 

57-29 

60-50 

69-59 

74-81 

78-34 

82-18 

29-50 

29-62# 

30~42# 

30-55# 

31-90# 

39-21 

42-22 

42-68 

42-78# 

43-43 

43-52# 

51-76# 

55-25# 

57-63# 

61-35 

73-30 

74-81 # 



24-54 

29-50 

29-70 

30-30 

30-55 

31-85 

31-101 

39-62 

42-31 

42-82 

43-43 

43-65 

51-76 

57-29 

61-35 

72-34 

74-81 

78-53 

83-26 

29-50# 

29-70 

30-43 

30-56 

31-94 

39-2 1# 

42-22# 

42~6S# 

42-82 

43-43# 

43-55 

53-25 

57-21 

57-111 

61-35# 

73-30# 

78-25 



24-55 

29-50 

29-72 

30-30 

30-56 

31-89 

31-110 

39-62 

42-68 

42-83 

43-43 

43-65 

53-25 

57-63 

61-35 

72-35 

74-93 

78-54 

84-26 

29-50# 

29-70 

30-43 

30-56# 

31-94 

39-2 1# 

42-22# 

42-6S# 

42-82 

43-43# 

43-55 

53-25 

57-21 

57-1 11# 

61-35# 

73-30# 

78-25 



24-19 



24- 



24-61 



24-63 



24-78 



24-176 



25-221 



J43 



29-50 



29-58 
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Cross reference table <CREF V05. 04) 

29-62 29-70 30-30 30-43 30-47 30-55 31-85 31-90 31-94 31-99 39-21 39-27 

39-62 42-22 42~29 42-31 42-68 42-73 42-78 42-82 42-84 43-43 43-48 43-52 

43-55 43~60 53-2t? 53-39 55-25 57-21 57-29 57-63 60-36 60-50 61-35 67-17 

69-24 73-30 74-25 74-54 78-25 78-32 78-34 79-19 79-24 79-26 79-28 

AUTHAN 2-106 50-21 50-23 

BADDEV 29-104 29-1 16# 30-86 31-140 42-110 43-85 

BADLIN 5-6# 

BADOPN 5-1 1# 29-96 29-103 

BASMAP 2-100 47-52^^ 

BDLMSG 5-8# 

BDSPOP 5-14# 31-61 

BDVMSG 5-7# 

BOSF 5-15# 31-132 31-139 

BRKPT 2-101 

BYTES 5-32# 24-36 

C. CSW 2-142 32-30^^ 77-24* 77-35* 

C. DEVQ 2-142 32-31* 77-33* 

C. SBLK 2-142 32-23* 

CIDEVX 2-142 32-27 40~112* 

CA*BLK 2-147 75-52* 

CA*DVU 2-147 75-54* 

CA*HBL 2-148 75-64* 

CA$HFL 2-148 75-62* 

CA*HSH 2-148 75-66* 

CA*UBL 2-148 75-60* 

CA*UFL 2-148 75-58* 

CA$WCT 2-147 75-56* 

CC**SZ 2-149 36-74 

CCAFLG 2-186# 24-23 81-27 

CCATST 25-247 81-14 81-27# 

CCBHD 2-149 36-73* 

CCLNAM 2-193# 39-62 39-65 

CCLSAV 2-127 39-64 

CD**SZ 2-86 36-64 

CDX*DH 2-141 36-104 

CDX*DL 2-150 

CDX*DZ 2-149 

CDX*VH 2-152 36-106 

CFHMSG 5-lS# 29-116 53-33 57-23 

CHAIN 2-116 24-85 

CHKCLD 31-40 33-13# 

CHKMEM 25-149 36-140 55-20 81-1 1# 

CHNSIZ 2-121 77-21 

CKLIN 25-34# 

CL*EPN 2-126 40-58* 

CL*EPP 2-126 40-52* 

CL*EPS 2-125 40-31* 40-51* 

CL*LEN 2-156 40-79* 

CL*LIX 2-155 23-19* 40-23 

CL*OPT 2-126 40-75* 

CL*ORA 2-124 40-43* 

CL$ORB 2-124 40-36* 

CL*ORE 2-124 40-46* 

CL*ORG 2-124 40-38* 

CL*ORP 2-124 40-37* 

CL*ORS 2-126 40-44* 
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CL*STA 


2-126 


40-83K^ 




CLDEVX 


2-142 


32-29 


40-94* 


CLEuFS 


5-i25 


40-55 


40-54 


CLHEAD 


2-142 


40-99 


40-117 


CLINCP 


2-154 


23-21 




CLINIT 


25-73 


40-1 1# 




CLKIOO 


2-187# 


6-165 


24-14* 


CLKRTI 


2-106 


6-71 




CLKVEC 


2-157 


6-71 » 


6-72* 6-165* 


CLORSZ 


2-111 


40-39 




CLOTIR 


2-154 


23-20 




CLSIZE 


2-142 


40-100 




CLSTS 


2-117 


40-96 


40-114 


CLTOTL 


2-112 


25-71 


32-18 40-18 


CLVEND 


4-6S# 


40-132 




CLVERS 


2-110 


40-123 


40-137* 


CLVTBL 


4-60# 


40-128 




CO^SBT 


2-129 


40-74 




CO*DEF 


2-125 


40-62 




CO*FF 


2-125 


40-71 




CO*TAB 


2-125 


40-68 




C0NFG2 


2-104 


24-165* 


24-166* 24-169* 


CONFIG 


2-103 


24-163* 


25-5 


CONSPC 


5-13# 


29-108 




COSRT 


5-34# 


74-94 




CRLF 


5-9# 


29-111 


29-119 59-10 


CS*ENT 


2-144 


77-24 




CS*NMX 


2-88 


77-34 




CS*OPN 


2-144 


77-24 




CSHALC 


2-121 


36-71 


70-161 75-17 


CSHBAS 


2-104 


8-39 


10-37* 


CSHBFP 


2-147 


75-47* 




CSHBUF 


25-206 


75-12# 




CSHDEV 


2-86 


36-63* 




CSHDVN 


2-86 


36-67* 




CSHOVF 


5-39# 


75-79 




CSHSIZ 


2-147 


75-33* 




CSHVEC 


2-105 


8-42 




CURDEV 


2-204# 


60-54* 


61-40 63-45 


CUR NAM 


2-20 5# 


52-25* 


57-20* 59-8 


CVTDVU 


31-37 


34-14# 


77-29 


CW*50H 


2-103 


25-5 




CWfBTH 


2-102 


24-161 




CW*ESP 


2-112 


24-166 




CW*FB 


2-102 


24-162 




CW*FGJ 


2-102 


24-162 




CW*GDH 


2-102 


24-161 




CW*LGS 


2-102 


24-161 




CW*PRO 


2-106 


24-116 


25-39 25-79 


CW*QBS 


2-114 


24-169 




CW*USR 


2-103 


24-162 




CWfXM 


2-103 


24-162 




CXTALC 


25-93 


46-12# 




CXTBAS 


2-111 


46-24 




CXTBUF 


2-118 


36-134* 




CXTPAG 


2-87 


29-40 


39-41 46-45* 



24-14 



25-78* 



40-101 



40-108 



70-149 



25-39 



74-99 



75-18 



25-79 



78-57 



75-28 



75-44 



48-31 
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CXTPDR 


2-110 


46-3Sfi- 










CXTRMN 


2-111 


46-23<^ 


46-24* 








CXTSIZ 


2-110 


46-16 










CXTWDS 


2-110 


46-30* 


46-42 








DATIHH 


2-104 


25-29<J 










DAT I ML 


2-104 


25-30^^ 










DC**SZ 


2-132 


38-64 










DCCSIZ 


2-85 


70-92 










DEVSIZ 


2-93 


14-20-fi- 


25-50* 


25-65* 


40- 


-98* 


DEVVEC 


6-139 


12-6# 










DFJMEM 


2-133 


48-50*^ 










DHBFSZ 


2-lOS 


36-110 


36-1 IP 








DHINIT 


22-14# 












DHLPRM 


22-10# 












DHOINT 


2-135 












DI*CL 


2-117 












DI$DU 


2-155 


3-30 










DIfLD 


2-117 


25-63 










DI$MU 


2-155 


3-32 










DI*PI 


2-156 


14-18 










DI«TT 


2-118 


25-48 










DI$XL 


2-155 


3-31 










DM*CSR 


2-151 












DM*LSR 


2-151 












DMYDEV 


2-95 


31-34 


31-57 


50-25 


74- 


-20 


DOHNLC 


55-45 


57-106 


60~13# 








DS*ABT 


2-124 












DSfDIR 


2-138 


25-63 


54-50 








DS*NRD 


2-129 


54-52 










DS*SFN 


2-139 


14-18 


25-63 








DS*VSZ 


2-138 


25-63 










DSKBUF 


2-58 


85-13 


85-48 


S5-84# 






DSTBLK 


2-194# 


80-27 


80-32 


80-39 






DTLX 


2-103 


39-52* 










DTYPE 


2-128 


50-27 










DV**SZ 


4~6# 


52-58 










DV*FLG 


4-5# 


52-56 










DV*NAM 


4-4# 


52-54 










DVFLAG 


2-138 


14-19* 


25-49* 


25-64* 


40- 


-97* 


DVFLBS 


4-13# 


52-53 










DVFLND 


4-42# 


52-59 










DVSTAT 


2-89 


14-18* 


25-48* 


25-63* 


40- 


-96* 


DW**SZ 


2-114 


70-137 










DX*DMA 


2-138 


4-16 


4-18 


4-19 


4- 


-20 




4-33 


4-34 


4-37 


4-38 


52- 


-65 


DX*EBA 


2-92 


4-39 


25-64 


52-67 






DX*IBH 


2-97 


4-18 


4-31 


4-32 


4- 


-33 


DX$MAP 


2-145 


51-52 










DX*MPH 


2-97 


4-14 


4-15 


4-16 


4- 


-18 




4-33 


4-35 


4-36 


4-38 


4- 


■40 


DX*NCA 


2-157 


4-39 


40-97 


40-115 


54- 


-54 


DX*NHM 


2-97 


4-17 


4-19 


4-23 


4- 


-26 


DX*NMT 


2-129 


40-97 


40-115 


54-54 






DX*NRD 


2-130 


40-97 


40-115 








DX*NST 


2-137 


4-23 


4-34 








DZINIT 


22-12# 
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40-116* 54-45* 



40-115* 51-43 54-30* 54-54* 

40-114* 54-46* 54-50 54-52 

4-21 4-22 4-23 4-26 4-28 4-31 4-32 

4-34 51-48 

4-24 4-25 4-27 4-29 4-30 4-31 4-32 

4-41 51-46 

4-34 4-39 51-44 



TSINIT — TSX startup initial iz MACRO V05. 04 Thursday 17-Dec-87 08:39 Page S~5 
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DZOINT 


2-135 












EDADDC 


89~14# 


90-2?# 










EDADDR 


85-13# 


US~LJ4* 










EDARGB 


S5-12# 


85-26 


85-35* 


85-36 


85-40 


85-50 


EDMODM 


89-12* 


90-19 


90-23 


90-32# 






EDMTH2 


85-41 


S6-3S# 










EDMTH3 


85-27 


S7-2'J# 










EDMULA 


B9-13# 


90-2?# 










EDPRNA 


88-17# 












EDPRNC 


88-20# 












EDPRNM 


87-41 


87-49 


87-52 


90-16# 






EDPRNW 


85-54 


86-51 


86-56 


88-12# 






EMMAP 


2-99 


6-123 


45-109 


57-77 


57-82 


62-36 62-55 


EMTENT 


2-107 


6-89 










ENTVEC 


8-35 


8-43 


8-51 


9-1 1# 






ERHMSG 


5-19# 


53-41 


55-27 


57-65 






ERHNDV 


5-20# 


53-58 










ERRLOG 


2-134 


58-22 










EXCBUF 


2-84 


26-17 










EXTLSl 


2-245# 


45-119 


51-54 








FC**SZ 


2-134 


70-69 










FC*LBN 


2-115 


38-61 










FETDEV 


2-198# 


80-23* 


80-27 


30-53 






FF**S2 


2-115 


38-56 










FILBLK 


2-203# 


57-49^^ 


57-63 


57-90* 


73-20* 


73-30 73-57* 


FMEMHI 


2-200# 


25-168 


45-103* 


45-114 


47-65* 


57-105* 57-107 


FMEMLO 


2-20 1# 


25-167« 


47-37 


47-62 


64-28 




FNDHRB 


2-58 


63-18# 










FORCED 


31-26 


35-S# 










FORK 


2-89 


58-15 










FPTRAP 


2-117 


6-95 










FQ**SZ 


2-95 


36-37 










FREIOQ 


2-117 


36-18* 










FREPOS 


2-118 


48-22* 










FRKGEN 


2-95 


36-34 


36-37 








FRKINI 


2-95 


36-36* 










FSTDL 


2-94 


38-22 










FSTIOL 


2-154 


23-11 


36-102 


37-24 






FW**SZ 


2-115 


38-58 










OENTOP 


2-156 


24-27 










GETHNH 


25-202 


56-13# 










GETHNL 


25-97 


50-1 4# 










GETLIC 


85-51 


85-7S# 


86-47 


87-40 






GETHAP 


25-172 


6S-12# 










GETOVL 


68-34 


72-12# 










GETSRT 


25-180 


25-195 


74-1 3# 








GTBYT 


2-101 


58-25 










GTLIN 


2-229# 


24-51 










H. CSR 


2-95 


53-79 










H. DSTS 


2-89 


53-48 


54-46 








H. DVSZ 


2-93 


54-45 










H. GEN 


2-89 


53-67 


53-71 


57-30 






H. INS 


2-95 


53-88 










H. SIZ 


2-93 


54-44 










HANDSK 


2-83 


54-38* 










HANENT 


2-89 


12-14 


14-21* 


25-51* 


25-66* 


40-99* 40-117- 



1 

I 
I 
I 

73-47 73-52 74-65 74-71 

< 

64-27 64-34* 64-35 € 

i 

€ 

I 
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4 

55-33* 55-34* 57-34* 60-21 60-61 < 
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HANMAP 


57-99 


60-22 


60-63 


61-41 


62-14# 
















HANNAM 


2-230# 


53-24* 


53-25 


57-19* 


57-21 
















HANPAR 


2-97 


12-20 


13-25 


13-54 


51-60* 


51-71* 


55-16* 


56-23 


57-47* 


62-26 


62-32 




HANRCB 


2-83 


27~20# 


63-23 




















HANRCO 


2-83 


27-21^ 


27-22* 




















HANS I Z 


2-93 


14-22* 


40-102* 


40-118* 


51-64 


54-44* 


55-18 


57-39 


57-98 








HANUMP 


57-101 


60-24 


60-72 


60-79 


61-31 


62-49# 














HANXIT 


2-97 


13-59 






















HANXMR 


2-58 


64~22# 






















HF*LIN 


2-150 
























HF*MC 


2-151 
























HF*RIE 


2-150 
























HF*TIE 


2-150 
























HF*TSB 


2-150 
























HGENFL 


2~237# 


53-71* 


57-30* 


58-17 


58-20 
















HI MAP 


2-94 


6-133 


47-56* 


48--20 


















HLERR 


51-67 


53-34 


53-42 


53-59 


53-70 


55-28 


57-24 


57-66 


59-5# 








HMAP 


2~197# 


57-48* 


57-73 


57-89* 


















HN2BIG 


5-27# 


51-66 






















HSGER 


5-22# 


53-69 






















HV**SZ 


3-20# 


53-60 






















HV*ID 


3-17# 


53-49 






















HV$UPD 


3-1 9# 


53-54 






















HV*VER 


3-18# 


53-51 






















HVEND 


3-33# 


53-61 






















HVTBL 


3-29# 


53-46 






















ICDNFG 


2-24 1# 


45-119* 


51-54 




















IDADDR 


85-31# 


85-32 






















II«*SZ 


2-85 


36-57 






















ILSW2 


2-112 


22-35 


40-65 




















INDDBL 


2-139 


42-40* 






















INDDBS 


2-139 


42-45* 


42-56 




















INDFIL 


2-84 


42-62 


42-68 


42-73 


42-78 


42-84 


42-89 


42-91 










INDINI 


25-118 


42-.12# 






















INDNAM 


2-232# 


42-21* 


42-22 


42-51 


















INDOPN 


5-40# 


42-102 


42-109 




















INDSAV 


2-139 


42-17* 


42-50 




















INDTSV 


2-139 


42-88 






















INICL.K 


25-5# 
























INIDEV 


25-40 


25-47# 






















INIJMP 


2-107 


6-161 






















INIOVL 


6-13 


S-9# 






















INISTP 


6-165# 


24-37 


24-56 


25-228 


29-112 


29-120 


31-64 


31-133 


39-77 


39-83 


45-153 


47-78 




59-11 


67-53 


69-54 


69-60 


72-36 


73-75 


74-100 


74-106 


75-00 


78-58 


81-22 


81-29 




85-68 
























INITGO 


2-57 


24-S# 


24-104 


24-106 


















INITOP 


2-57 


2-207 


24-132 


24-134 


66-52 


66-54 


84-37# 












INMXV 


2-108 
























INPRNM 


87-37 


89~11# 






















INRECV 


2-108 
























INSCHK 


24-96 


85-17* 






















INSCKl 


51-25 


52-16# 






















INSCK2 


51-31 


53-14# 






















INSTBL 


2-85 


36-54* 






















INSTBN 


2-85 


36-59* 






















INTEN 


2-89 


58-16 
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INTMXl 


2-109 










INTSND 


2-113 


6-24« 


6-152 


24 


-113* 


INTSsZ 


2-»4 


24-122 








INTSTK 


2-113 


6-155 


24-123* 






INVEC 


2-87 










lOMAP 


2-99 


2-137 


6-126 






lOPAGE 


2-99 


44-29 








lOQSIZ 


2-llS 


36-19 








lOTIMR 


2-134 


58-19 








JCXPGS 


2-133 


48-32* 








JM**SZ 


2-111 


36-44 








JMPO 


2-103 


6-7B 








JSWLOC 


2-116 


24-35 








KEYSEG 


8-23 


10-10# 


72-22 






KMNBAS 


2-119 


39-34 








KMNCHN 


2-98 


39-56 








KMNHI 


2-96 


39-3 5-f* 








KMNNAM 


2-l92# 


39-21 


39-57 






KHNPGS 


2-98 


39-42* 


48-26 






KMNSTK 


2-98 


39-44* 








KMNSTR 


2-98 


39-46* 








KMNTOP 


2-96 


39-32* 








KPARO 


2-98 


44-14 








KPAR5 


2-135 


6-130* 


12-9 


12- 


-22* 12-62* 




62-32# 


62-57* 


73-42 


73- 


-43* 73-54* 


KPAR6 


2-157 


60-71* 


60-78* 


61- 


-26 61-27* 


KPAR7 


2-100 


44_29« 








KPDRO 


2-100 


44-16 








LCDTYP 


2-109 


36-104 


36-106 






LCLUNT 


2-136 


23-13* 


23-18 


23- 


-26* 40-26* 


LDITBL 


4-77# 


41-15 








LDDEVX 


2-138 


25-56* 


25-61* 






LDHAND 


50-31 


50-46 


51~21# 






LDHBIB 


2-110 


36-108* 








LDHBIP 


2-110 


36-109* 








LDHB2B 


2-110 


36-111* 








LDHNHI 


56-29 


57-12# 








LDHNLD 


51-72 


55~12# 








LDINIT 


25-67 


41~S# 








LDREAD 


60-64 


61-1 5# 








LOVERS 


2-114 


41-9 


41-21* 






LHIRBA 


2-90 


37-30 


37-39* 






LHIRBB 


2-90 


37-43* 








LHIRBC 


2-91 


37-54 


37-60* 


37- 


•61 37-67* 


LHIRBE 


2-90 


37-48* 








LHIRBO 


2-90 


37-45* 








LHIRBP 


2-90 


37-44* 








LHIRBS 


2-91 


37-46* 








LICNUM 


85-24# 


85-25 


85-78 


85- 


■S5# 


LINBUF 


2-94 


38-28* 








LINCHK 


22-9# 


25-34 








LINEND 


2-96 


38-32* 








LININI 


6-113 


22-20# 








LINIR 


2-154 


23-21* 


23-29* 






LINSIZ 


2-94 


38-29 








LINSPC 


2-97 


38-30* 









13-52 13-55 57-72 57-73* 57-84* 61-25 61-46* 

61-45* 



I 
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LINTYP 


22-25 


23-9# 




LMXLN 


2-150 






LrlXNUh 


k:-fcf/ 


40-59 




LODINI 


7-9# 


8-24 




LODOVL 


72-26 


73-9# 




LOKBAS 


2-105 


8-47 


10-33* 


LOKCSH 


2-132 


38-71* 




LOKMEM 


2-100 


38-55* 




LOKVEC 


2-105 


8-50 




LOMAP 


2-93 


6-131 


47-50* 48-21 


LOTBUF 


2-96 


38-38* 




LOTEND 


2-96 


38-41* 




LOTSIZ 


2-96 


38-39 


38-40 40-42 


LOUT I R 


2-154 


23-20* 


23-28* 


LOWEND 


4-109# 


66-39 




LOWOVL 


4-106# 


66-36 




LSTDL 


2-94 


38-24 




LSTHL 


2-154 


36-114 


37-17 


LSTLIN 


2-126 


22-21 




LSTMX 


2-116 


36-90 




LSTPL 


2-87 


23-9 


29-26 36-100 


LSTSL 


2-88 


38-46 


42-57 43-32 


LSWIO 


2-90 


40-25* 




LSW3 


2-112 


22-26 


22-37* 23-30* 


LSW5 


2-157 






LSW6 


2-122 






LSWPBK 


2-88 






LTTPAR 


2-105 


38-26* 




LXCL 


2-84 


23-27* 




MA*SYS 


2-112 


6-135 




MAPALC 


25-212 


47~27# 




MAP PAR 


2-97 


6-130 


47-64* 


MAPSIZ 


2-99 


45-99 


45-101 


MAP SYS 


2-136 


6-104 




MAXDEV 


2-83 


60-59 




MAXOVL 


4-98# 


4-100 




MAXSLO 


2-91 


37-33 


37-35 


MB**SZ 


2-144 


70-99 




MEM256 


2-132 


6-124 


45-116* 45-125 




74-63 


74-69 




MEMINI 


24-155 


44-6# 




MEMLIM 


2-236# 


24-72* 


81-11 


MEMPAR 


2-130 


6-93 




MEMTST 


25-89 


45-24# 




MF*CM 


2-151 






MF*CS 


2-151 






MF*LE 


2-151 






MF*LIN 


2-149 






MH*LPR 


2-151 






MH*PBR 


2-152 






MH*SCR 


2-150 






MHNSIZ 


2-107 


25-197* 


57-45* 


MI$*SZ 


2-146 






MI*LNK 


2-145 


38-86 




MI*SBP 


2-145 


38-82* 




MINCTR 


2-119 







37-22 



29-27 38-20 



57-75 57-80 61-21 61-48 62-34 62-53 73-45 73-50 
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MIOBHD 2-145 38-80 

HIODBG 2-127 

MIuFLy ii-14t3 36-78 7u-i43 

MIONWB 2-146 

MIDWHD 2-146 

MMENBL 2-93 6-118 45-110 57-74 57-83 62-33 62-56 73-44 73-53 74-62 74-72 

MONFQH 2-111 36-43* 

MONVEC 2-119 6-17 27-22 53-92 62-22 

MPARO 2-92 

MPAR16 2-92 

MPARFL 2-92 

MPIVSZ 13-19# 25-105 

MPPHY 2-101 58-26 

MR**SZ 2-144 70-102 

MSGBAS 2-102 10-21 «• 

MTSXDV 78-40 78-53# 79-35 

MU*TXT 2-116 70-107 

MUXVEC 22-13# 

MVSIZ 2-130 46-25 46-49 

MW**SZ 2-146 

MW*LNK 2-146 

MXCSR 2-87 

MXDTR 2-109 

MXJADR 2-141 48-43* 

MXJMEM 2-133 48-38* 

MXLNT 2-117 36-92* 

MXLPR 2-112 

MXRBUF 2-109 

MXTYPE 2-108 

MXVEC 2-87 

NDL 2-96 29-25 

NDVRCB 2-83 27-16 

NEDCHR 2-154 23-28 

NEXMSG 5-25# 

NFRESB 2-114 31-118* 

NFSBLK 2-183# 43-60 43-61 43-62 

NIOL 2-121 40-101 

NLINES 2-120 38-58 

NMSNMB 2-131 36-50 

NHXHAN 2~196# 25-102 51-59* 

NOCCL 5-17# 39-76 

NOCLOK 5-23# 25-227 

NOKMON 5-16# 39-82 

NDODT 5-26# 

NDSYDV 5-29# 

NOTLIC 85-67 85-7 }# 

NOXM 24-61 45-151# 

NSCP 2-86 36-130 

NSIP 2-85 36-56 

NSL 2-96 29-25 

NSPLBL 2-113 31-80 31-117 70-78 

NSPLDV 2-99 31-22* 31-44* 31-50* 31-75 31-114 

NSPLFL 2-113 36-78 

NUMCCB 2-94 36-74 

NUMCDB 2-85 38-54* 

NUMDCD 2-132 38-53* 
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NUMDEV 2-88 12-57 14-12* 14-13 25-52« 25-59* 25-60 34-31 40-92* 40-93 40-110* 40-111 

52-43 54-24* 54-25 56-34 78-35 79-29 

niuHFRK 2—95 36—34 56—37 

NUMIOQ 2-117 36-19 

NUMRDB 2-120 2-148 25-176 

NXIVMH 2-84 25-104 

NXMMSO 5-24# 45-152 

0. ADR 2-135 10-15 66-35 69-30* 70-22 

0. BLK 2-135 7-29 69-24 73-20 

0. PAR 2-135 7-34* 73-25* 

0. SIZ 2-135 7-21 7-23 69-34 70-26 73-19 
ODTBAS 2-178# 
ODTBLK 2-231 # 

ODTFLQ 2-184# 24-89* 
ODTRDM 5~28# 
ODTSTA 2-235# 
ODTTOP 2-185# 
ODTTRP 2-123 

OORCLO 70-60 70-1 49# 

OORCSH 70-62 70-1 61 # 

OORDBG 70-61 70-1 55# 

ODRDMP 70-63 70-1 67# 

DORLOK 70-53 70-8S# 

DORMIO 70-59 70~143# 

OORMSG 70-54 70~97# 

OORPLS 70-56 70-1 14# 

OORSLE 70-57 70-129# 

OORSPL 70-52 70-75# 

OORSWP 70-55 70-123# 

OORUSR 70-51 70~6S# 

OORWIN 70-58 70-135# 

OOXFIN 70-175 70-190# 

OOXNO 70-76 70-89 70-98 70-115 70-124 70-130 70-136 70-144 70-150 70-156 70-162 70-168 
70-1 73# 

OOXYES 70-37 70-71 70-84 70-91 70-93 70-110 70-119 70-125 70-131 70-139 70-145 70-151 

70-157 70-163 70-169 70-179# 

OPNCHN 31-48 77-14# 

OPNKMN 25-114 39-17# 

OPNRSF 25-140 30-1 1# 

OPNSWP 25-136 29-13# 

OPTOVL 68-21 69-42 70-i5# 

OS**SZ 4-96# 4-100 8-26 66-46 67-36 68-23 

OS*FLG 4-94# 8-21 66-42* 66-64* 67-33* 68-32 

OS*OVL 4-95# 7-15 10-14 66-34 67-32* 69-19 

OS*SIZ 4-93# 7-19 8-25 66-32 66-43 66-65 67-35* 68-22* 68-30 71-20 71-24 71-2S 

71-28 72-16 

OSEND 4-10 1# 

OSLAST 4-102# 8-27 66-47 67-40* 68-24 68-36 

OSTABL 4-100# 4-102 8-20 66-31 67-31 68-20 

OSZ 2-175# 

OTMXV 2-108 

OTRECV 2-108 

OVLBAS 2-202# 8-14 66-30* 

OVLBLD 66-23 67-10# 

OVLEND 70-35 70-64# 

OVLLST 70-31 70-50# 



68-35 


71- 


-31 


71-22 






70-21 


73- 


-18 


67-35* 


68- 


-22* 


71-32 






68-29 


71- 


-19 



1 
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OVLPOS 24-127 66-15# 

OVLTRY 66-62 71-14# 

OVRADD a- 136 6/-2/* 

PARENL 2-92 

PARSET 25-e5 49-34# 

PHSOVF 5-33# 47-77 

PHYMEM 2-141 6-121 45-98* 

PIDPTR 2-68 25-42* 

PIDRIV 2-68 25-42 

PIDVEN 6-147 14-7# 

PI HAN 2-68 14-21 

PIINSZ 24-1 12# 24-120 

PISRT 2-57 2-249# 25-193 



PRTOCT 82-S# 

PRTR50 29-118 31-63 59-9 74-97 78-56 S4-8# 

PSW 2-94 57-71* 57-85* 62-18* 62-65* 73-41* 73-55* 74-59* 74-61* 74-73* 

PTBYT 2-100 58-24 

PTWRD 2-100 58-23 

PVSPBL 2-114 31-115 

QBUS 2-137 24-167 45-117 

R50C1 2-222# 33-30 40-113 

R SOCIO 2-223# 33-32 33-36 

R50C17 2-224# 33-34 

R50CHR 5-42# 84-17 

R50CL 2-2 19# 33-17 40-95 

R50CL0 2-220# 33-19 33-23 

R50CL7 2~221# 33-21 

R50CSH 2-213# 10-35 

R50LD 2-21 7# 25-62 52-30 

R50L0K 2-21 1# 10-31 

R50LS 2~226# 

R50MSG 2-209# 10-19 

R500DT 2-227# 24-87 

R50PI 2-21 S# 14-17 

R50SY 2-2 16# 

R SOT 10 2-2 14# 10-39 

R50TT 2-21 5# 25-47 

R50USR 2-2 12# 10-27 

R50VM 2-225# 



€ 
I 
I 
f 



PMPAR 2-131 38-93* 

PMSIZE 2-131 38-91 

PNAME 2-89 14-17* 25-47* 25-62* 34-32 40-95* 40-113* 52-45 54-29* 57-19 57-20 78-36 

79-30 79-42 f 

PPTERM 2-57 2~254# 

PROASM 1-1# 2-20 2-32 2-57 2-63 6-29 6-143 11-1 14-1 15-1 25-38 25-187 

28-1 45-45 45-55 49-1 65-1 i 

PRDBUF 2-58 2-206# 24-119* 

PROCID 2-24 24-95 24-146 76-1 85-1 

PROFLG 2-98 6-30 6-53 6-144 24-118* 25-191 45-46 C 

PROHAN 2-67 6-146 

PRDINI 2-67 25-41 

PROITP 2-57 90-44# 

PROLIN 2-67 22-31 

PRONOP 2-67 6-32 

PROS I Z 2-67 14-22 

PRTDEC 24-35 29-110 S3-9# 



i 
i 

€ 

I 
c 
i 
i 
i 
i 
i 
i 
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R50WIN 


2-2 10# 


10-23 








RBD 


2-177# 










nan 


2-i io 










RC**SZ 


2-121 


36-28 








RDB 


2-120 


25-178 








RDBEND 


2-120 


25-182 








RDERR 


5-37# 


7-46 


67-52 


69- 


-53 


RDINT 


2-116 










REDUCE 


5-31# 


24-33 








RELOC 


2-101 


58-27 








REQMIS 


5-l0# 


78-54 








RID 


2-176# 










RLBF 


2-233# 










RLBFND 


2-234# 










RMNPDR 


2-112 


46-56*- 








RMON 


2-104 


6-17* 


6-167* 


24- 


"13 


ROMBUF 


85-33 


85-47 


85-S6# 






RPRVEC 


2-102 


12-48 


53-93 


60- 


-58 


RSFBLK 


2-140 


30-23 


30-30 


30- 


-43 


RSFERR 


5-12# 


30-78 


30-85 






RSR 


2-87 


40-27 








RSZ 


2-174# 










RT**SZ 


2-122 


25-181 








RT*BAS 


2-121 


74-48» 








RT*NAM 


2- 138 


74-331J 


74-34* 






RT*SKP 


2-120 


74-39 








RT$TOP 


2-120 


74-42+^ 








RTFTCH 


29-20 


30-24 


31-78 


42- 


-63 


RTMNVC 


2-lS9# 


6-167 


24-13* 


62- 


-61 


RTNKM 


45-146# 










RTTRP4 


2-188# 


6-166 


24-12* 






SAVBLK 


2-190# 










SB**SZ 


2-131 


36-50 








SCHED 


2-88 


85-49 








SCPFHD 


2-86 


36-129* 








SDANAM 


2-119 


31-30 








SDCB 


2-127 


31-23 








SDCBSZ 


2-128 


31-68 








SDCHAN 


2- 128 


31-47 


32-23* 


32- 


■30H 


SDDVU 


2-91 


31-38* 








SDNAME 


2-128 


31-28* 


31-57* 






SEOCHN 


2-140 


30-62 








SETCHN 


29-80 


30-64 


31-109 


39- 


•58 


SETJSZ 


25-216 


4S-i6# 








SETMIO 


25-144 


65-92# 








SETSY 


25-110 


79-14# 








SETUMP 


6-109 


ll-49# 








SETVEC 


12-36 


12-50 


13~21# 






SFCB 


2-113 


36-81* 








SFCBFH 


2-113 










SFCBND 


2-113 


36-83* 








SFCBSZ 


2-113 


36-80 








SG*ELG 


2-104 


24-172 


58-20 






SG*IOT 


2-104 


24-173 


58-17 






SG*MMU 


2-105 


24-173 


53-67 






SG$MTM 


2-105 


24-173 









73-74 



24-115 24-159 53-91 53-92* 53-95* 62-22* 62-61* 
30-47 30-63 30-68 



43-37 80-17# 



-31* 



39-66 42-52 42~90 78-18# 



I 
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SGfMTS 


2-105 


24-172 
























f SGfPAR 


2-105 


24-172 
























5y*T8X 


2-i4i 


24-i 73 
























SHRRCB 


2-120 


36-23* 
























i SHRRCN 


2-120 


36-30* 
























SIZERR 


48-59 


80-69 


81-13 


ei-20# 




















SKPDEV 


2-228# 


52-35 
























1 SLTSIZ 


2-116 


29-4 1 * 
























SMRSIZ 


2-149 


68-15* 


68-41 


68-43* 




















SNMSHD 


2-131 


36-49* 
























1 SP$*SZ 


2-86 


36-130 
























SPLANM 


2-127 


31-25 
























SPLBLK 


2-130 


31-77 


31-85 


31-90 


31-94 


31-108 


31- 


-110 












f SPLCHN 


2-130 


31-107 
























SPLCLD 


31-42 


32~13# 
























SPLDEV 


2-127 


31-24 


50-42 






















t SPLDVN 


2-128 


31-70 
























SPLINI 


25-130 


31-7# 
























SPLNB 


2-121 


70-77 
























1 SPLND 


2-127 


31-7 


50-40 


70-75 




















SPNEED 


29-97 


29-108# 


30-79 


42-103 


43-78 


















SROMMR 


2-98 
74-62* 


6-118* 
74-72* 


24-62 


45-110* 


57-74* 


57-83* 


61- 


-24 


61-47* 


62-33* 


62-56* 


73-44* 


73-53* 


SR3FLG 


2-99 


6-119 


45-39* 


45-107 




















SR3MMR 


2-99 
73-52* 


6-123* 
74-65* 


6-126* 
74-71* 


45-37 


45-109* 


57-77* 


57- 


-82* 


61-23 


61-50* 


62-36* 


62-55» 


73-47* 


SRTOVF 


5-38# 


74-105 
























SRTSIZ 


2-149 


25-185* 
























< SS 


2-116 


24-44 
























SSEND 


2-118 


24-41 
























STA 


2-172# 


























C STDVTB 


51-38 


54-20# 
























STHNPV 


55-41 


57-100 


58-1 1# 






















STK 


2-173# 


























€ STKLVL 


2-84 


6-25* 


6-157* 
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